2KA01
------
2KA02
------
2KA03
------
2KA04
------
2KA05
------
2KA06
------
2KA07
------
2KA08
------
2KA09
------
2KA10
------
2KA11
------
2KA12
------
2KA13
------
2KA14
------
2KA15
------
2KA16
------
2KA17
------
2KA18
------
2KA19
------
download here (name of ur class) if u want see the schedule of ILAB each class
Pages
CoBol - Accept and Display
$ SET SOURCEFORMAT"FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID. AcceptAndDisplay.
AUTHOR. [ALA]Project!.
* Uses the ACCEPT and DISPLAY verbs to accept a student record
* from the user and display some of the fields. Also shows how
* the ACCEPT may be used to get the system date and time.
* The YYYYMMDD in "ACCEPT CurrentDate FROM DATE YYYYMMDD."
* is a format command that ensures that the date contains a
* 4 digit year. If not used, the year supplied by the system will
* only contain two digits which may cause a problem in the year 2012.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 StudentDetails.
02 StudentId PIC 9(7).
02 StudentName.
03 Surname PIC X(8).
03 Initials PIC XX.
02 CourseCode PIC X(4).
02 Gender PIC X.
* YYMMDD
01 CurrentDate.
02 CurrentYear PIC 9(4).
02 CurrentMonth PIC 99.
02 CurrentDay PIC 99.
* YYDDD
01 DayOfYear.
02 FILLER PIC 9(4).
02 YearDay PIC 9(3).
* HHMMSSss s = S/100
01 CurrentTime.
02 CurrentHour PIC 99.
02 CurrentMinute PIC 99.
02 FILLER PIC 9(4).
PROCEDURE DIVISION.
Begin.
DISPLAY "Enter student details using template below".
DISPLAY "Enter - ID,Surname,Initials,CourseCode,Gender"
DISPLAY "SSSSSSSNNNNNNNNIICCCCG".
ACCEPT StudentDetails.
ACCEPT CurrentDate FROM DATE YYYYMMDD.
ACCEPT DayOfYear FROM DAY YYYYDDD.
ACCEPT CurrentTime FROM TIME.
DISPLAY "Name is ", Initials SPACE Surname.
DISPLAY "Date is " CurrentDay SPACE CurrentMonth SPACE CurrentYear.
DISPLAY "Today is day " YearDay " of the year".
DISPLAY "The time is " CurrentHour ":" CurrentMinute.
STOP RUN.
*Kekurangan :
- programer dituntut untuk lebih teliti tentang penulisan program cobol.
- bahasa program cobol di haruskan listing program secara teratur dalam penulisannya.
IDENTIFICATION DIVISION.
PROGRAM-ID. AcceptAndDisplay.
AUTHOR. [ALA]Project!.
* Uses the ACCEPT and DISPLAY verbs to accept a student record
* from the user and display some of the fields. Also shows how
* the ACCEPT may be used to get the system date and time.
* The YYYYMMDD in "ACCEPT CurrentDate FROM DATE YYYYMMDD."
* is a format command that ensures that the date contains a
* 4 digit year. If not used, the year supplied by the system will
* only contain two digits which may cause a problem in the year 2012.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 StudentDetails.
02 StudentId PIC 9(7).
02 StudentName.
03 Surname PIC X(8).
03 Initials PIC XX.
02 CourseCode PIC X(4).
02 Gender PIC X.
* YYMMDD
01 CurrentDate.
02 CurrentYear PIC 9(4).
02 CurrentMonth PIC 99.
02 CurrentDay PIC 99.
* YYDDD
01 DayOfYear.
02 FILLER PIC 9(4).
02 YearDay PIC 9(3).
* HHMMSSss s = S/100
01 CurrentTime.
02 CurrentHour PIC 99.
02 CurrentMinute PIC 99.
02 FILLER PIC 9(4).
PROCEDURE DIVISION.
Begin.
DISPLAY "Enter student details using template below".
DISPLAY "Enter - ID,Surname,Initials,CourseCode,Gender"
DISPLAY "SSSSSSSNNNNNNNNIICCCCG".
ACCEPT StudentDetails.
ACCEPT CurrentDate FROM DATE YYYYMMDD.
ACCEPT DayOfYear FROM DAY YYYYDDD.
ACCEPT CurrentTime FROM TIME.
DISPLAY "Name is ", Initials SPACE Surname.
DISPLAY "Date is " CurrentDay SPACE CurrentMonth SPACE CurrentYear.
DISPLAY "Today is day " YearDay " of the year".
DISPLAY "The time is " CurrentHour ":" CurrentMinute.
STOP RUN.
*Kekurangan :
- programer dituntut untuk lebih teliti tentang penulisan program cobol.
- bahasa program cobol di haruskan listing program secara teratur dalam penulisannya.
Tips Untuk ODPUS (Orang Dengan Penyakit Lupus)
menurut Dr.Iris Rengganis SpPD-KAI
pengobatan yang tepat dapat menekan gejala klinis dan komplikasi yang mungkin terjadi. satu hal yang perlu dikenali adalah sifat penyakit lupus yang dapat menyerupai penyakit lain, sehingga seringkali pasien mengalami salah diagnosa awal.
disarankan hal-hal yang perlu dihindari ODAPUS adalah hal-hal yang dapat membuat penyakitnya kambuh. yaitu stress. melindungi tubuhnya agar tidak terkena langsung oleh sinar matahari, misalnya menggunakan sunblock atau payung bila cuaca panas. mengurangi beban kerja yang berlebihan atau tidak boleh terlalu lelah, dan menghindari pemakaian obat tertentu.
selain itu, ODAPUS juga hendaknya memeriksakan diri pada dokter spesialis penyakit dalam rangka konsultasi hematologi, rheumatologi, ginjal, hipertensi dan alergi imunologi. jika ingin LUPUS terkendali, maka harus kontrol dan minum obat yang diberikan oleh dokter secara teratur. biasanya berupa obat yang diminum seumur hidup, jika hal tersebut dilakukan maka ODAPUS dapat hidup layaknya orang normal.
disarankan pula agar ODAPUS tidak bosan menjalani pengobatannya dan tidak stress, agar dapat mengikuti berbagai penyuluhan dan masuk dalam perkumpulan penyandang LUPUS agar dapat saling berbagi dan menguatkan satu sama lain, sehingga kesadaran untuk meminum obat-pun lebih besar.
Dikutip dari :
Majalah DokterKita Edisi-7 Juli 2009 hal 29
dengan sedikit perubahan kata atau kalimat agar lebih mudah dibaca.
pengobatan yang tepat dapat menekan gejala klinis dan komplikasi yang mungkin terjadi. satu hal yang perlu dikenali adalah sifat penyakit lupus yang dapat menyerupai penyakit lain, sehingga seringkali pasien mengalami salah diagnosa awal.
disarankan hal-hal yang perlu dihindari ODAPUS adalah hal-hal yang dapat membuat penyakitnya kambuh. yaitu stress. melindungi tubuhnya agar tidak terkena langsung oleh sinar matahari, misalnya menggunakan sunblock atau payung bila cuaca panas. mengurangi beban kerja yang berlebihan atau tidak boleh terlalu lelah, dan menghindari pemakaian obat tertentu.
selain itu, ODAPUS juga hendaknya memeriksakan diri pada dokter spesialis penyakit dalam rangka konsultasi hematologi, rheumatologi, ginjal, hipertensi dan alergi imunologi. jika ingin LUPUS terkendali, maka harus kontrol dan minum obat yang diberikan oleh dokter secara teratur. biasanya berupa obat yang diminum seumur hidup, jika hal tersebut dilakukan maka ODAPUS dapat hidup layaknya orang normal.
disarankan pula agar ODAPUS tidak bosan menjalani pengobatannya dan tidak stress, agar dapat mengikuti berbagai penyuluhan dan masuk dalam perkumpulan penyandang LUPUS agar dapat saling berbagi dan menguatkan satu sama lain, sehingga kesadaran untuk meminum obat-pun lebih besar.
Dikutip dari :
Majalah DokterKita Edisi-7 Juli 2009 hal 29
dengan sedikit perubahan kata atau kalimat agar lebih mudah dibaca.
Budaya Organisasi
Organisasi (dalam bahasa Yunani: ὄργανον, organon atau alat) adalah suatu kelompok/ sekelompok orang dalam suatu wadah untuk suatu tujuan bersama.
Organisasi pada dasarnya digunakan sebagai tempat atau wadah dimana sekumpulan orang berkumpul, bekerjasama secara rasional dan sistematis, terencana, terorganisasi, terpimpin dan terkendali, dalam memanfaatkan sumber daya (uang, material, mesin, metode, lingkungan), sarana-parasarana, data, dan lain sebagainya yang digunakan secara efisien dan efektif untuk mencapai tujuan organisasi yang mereka jalani.
Sebuah organisasi dapat terbentuk karena dipengaruhi oleh beberapa aspek seperti penyatuan visi dan misi serta tujuan yang sama dengan perwujudan eksistensi sekelompok orang tersebut terhadap masyarakat contohnya (Organisasi Karang Taruna).
Suatu Oraganisasi/ atau budaya organisasi biasanya sering dilakukan atau tidak sengaja kita terlibat di dalamnya sebagai contoh : seseorang bekerja di suatu perusahaan, maka ia dituntut untuk dapat ber-Organisasi dengan baik dengan rekan kerjannya dalam perusahaan itu. Contoh lainnya seorang mahasiswa/siswa ia juga dituntut untuk dapat berorganisasi baik di dalam lingkungan belajar atau di luar lingkungan belajar mereka contoh : mahasiswa pada organisasi BEM/Himpunan Mahasiswa Fakultas, di kelas, dll. Siswa pada Organisasi Intra Sekolah (OSIS)mereka masing-masing dituntut untuk dapat menunjukkan kemampuan ber-organisasi dengan baik sesama teman yang berbeda kelas ataupun berbeda jurusan
Karakteristik budaya organisasi
Karakteristik dalam Budaya Organisasi meliputi :
+ Inovasi dan keberanian mengambil risiko/resiko. (biasanya dalam dunia kerja)
+ Perhatian pada hal-hal rinci.
+ Orientasi hasil.
+ Orientasi orang.
+ Orientasi tim.
+ Keagresifan.
+ Stabilitas.
*reference : http://id.wikipedia.org
Organisasi pada dasarnya digunakan sebagai tempat atau wadah dimana sekumpulan orang berkumpul, bekerjasama secara rasional dan sistematis, terencana, terorganisasi, terpimpin dan terkendali, dalam memanfaatkan sumber daya (uang, material, mesin, metode, lingkungan), sarana-parasarana, data, dan lain sebagainya yang digunakan secara efisien dan efektif untuk mencapai tujuan organisasi yang mereka jalani.
Sebuah organisasi dapat terbentuk karena dipengaruhi oleh beberapa aspek seperti penyatuan visi dan misi serta tujuan yang sama dengan perwujudan eksistensi sekelompok orang tersebut terhadap masyarakat contohnya (Organisasi Karang Taruna).
Suatu Oraganisasi/ atau budaya organisasi biasanya sering dilakukan atau tidak sengaja kita terlibat di dalamnya sebagai contoh : seseorang bekerja di suatu perusahaan, maka ia dituntut untuk dapat ber-Organisasi dengan baik dengan rekan kerjannya dalam perusahaan itu. Contoh lainnya seorang mahasiswa/siswa ia juga dituntut untuk dapat berorganisasi baik di dalam lingkungan belajar atau di luar lingkungan belajar mereka contoh : mahasiswa pada organisasi BEM/Himpunan Mahasiswa Fakultas, di kelas, dll. Siswa pada Organisasi Intra Sekolah (OSIS)mereka masing-masing dituntut untuk dapat menunjukkan kemampuan ber-organisasi dengan baik sesama teman yang berbeda kelas ataupun berbeda jurusan
Karakteristik budaya organisasi
Karakteristik dalam Budaya Organisasi meliputi :
+ Inovasi dan keberanian mengambil risiko/resiko. (biasanya dalam dunia kerja)
+ Perhatian pada hal-hal rinci.
+ Orientasi hasil.
+ Orientasi orang.
+ Orientasi tim.
+ Keagresifan.
+ Stabilitas.
*reference : http://id.wikipedia.org
Langganan:
Postingan (Atom)