Senin, 14 Desember 2009

PROGRAM COBOL FILE RELATIF

PROGRAM COBOL FILE RELATIF


       IDENTIFICATION DIVISION.
       PROGRAM-ID. FILE-RELATIF.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
       DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       SELECT MHS ASSIGN TO DISK
       ORGANIZATION IS RELATIVE
       ACCESS MODE IS DYNAMIC
       RECORD KEY IS NO-REL
       FILE STATUS IS STATUS-SALAH.
       DATA DIVISION.
       FILE SECTION.
       FD MHS
       LABEL RECORD IS STANDARD
       VALUE OF FILE-ID IS 'REL.DAT'
       DATA RECORD IS RECMHS.
       01 RECMHS.
             02 NPM PIC 9(8).
             02 NAMA PIC A(25).
             02 KELAS PIC X(5).
             02 NILAI PIC 99.
        WORKING-STORAGE SECTION.
       77 STATUS-SALAH PIC XX.
       77 NO-REL PIC 9(8).
       01 ISI-LAGI PIC X.
       88 LAGI VALUE 'Y', 'y'.
       88 TIDAK VALUE 'T', 't'.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
            02 BLANK SCREEN.
       01 ISI-DATA.
            02 LINE 1 COLUMN 30 'INPUT FILE RELATIF' HIGHLIGHT
                FOREGROUND-COLOR 3
                BACKGROUND-COLOR 5.
            02 LINE 3 COLUMN 5 'NPM : ' HIGHLIGHT.
            02 COLUMN PLUS 1 PIC 9(8) TO NPM.
            02 LINE 4 COLUMN 5 'NAMA : ' HIGHLIGHT.
            02 COLUMN PLUS 1 PIC A(25) TO NAMA.
            02 LINE 5 COLUMN 5 'KELAS : ' HIGHLIGHT.
            02 COLUMN PLUS 1 PIC X(5) TO KELAS.
            02 LINE 6 COLUMN 5 'NILAI : ' HIGHLIGHT.
            02 COLUMN PLUS 1 PIC 99 TO NILAI.
       01  LAYAR-KREDIT.
            02 LINE 12 COLUMN 25 "CREATED BY TONNY" HIGHLIGHT
               FOREGROUND-COLOR 5
               BACKGROUND-COLOR 7.
       PROCEDURE DIVISION.
       BUKA-FILE.
           OPEN OUTPUT MHS.
       MULAI.
           DISPLAY HAPUS-LAYAR
           DISPLAY ISI-DATA
           ACCEPT ISI-DATA.
           COMPUTE NO-REL = NPM - 51402000.
           WRITE RECMHS.
           DISPLAY(10, 5) 'ADA DATA LAGI [Y/T] ? '
           ACCEPT( , ) ISI-LAGI.
           IF LAGI GO TO MULAI
           ELSE
                IF TIDAK
                    DISPLAY HAPUS-LAYAR
                    DISPLAY LAYAR-KREDIT
                    GO TO SELESAI.
       SELESAI.
            CLOSE MHS.
            STOP RUN.

Program Cobol Membuat Matriks

     Program Cobol Membuat Matriks


       IDENTIFICATION DIVISION.
       PROGRAM-ID. MAT.
       AUTHOR. DEVIE.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 I PIC 9.
       77 J PIC 9.
       01 Pilihan.
           02 PIL PIC 9.
       01 TOTAL.
           02 TOTAL-BARIS OCCURS 2 TIMES.
               03 TM OCCURS 2 TIMES PIC 9(3).
       01 MAT1.
           02 BAR1 OCCURS 2 TIMES.
               03 MATRIKA OCCURS 2 TIMES PIC 99.
       01 MAT2.
           02 BAR2 OCCURS 2 TIMES.
               03 MATRIKB OCCURS 2 TIMES PIC 99.
       01 ISI-LAGI PIC X.
           88 LAGI VALUE  "Y", "y".
           88 TIDAK VALUE "T", "t".
       01 CETAK.
           02 M1 PIC Z9.
           02 M2 PIC Z9.
           02 T PIC ZZ9.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 TANDA.
           02 LINE 3 COLUMN 15 '+' HIGHLIGHT.
           02 LINE 3 COLUMN 30 '=' HIGHLIGHT.
       01 MENU.
           02 LINE 2 COLUMN 30 "MENU PILIHAN" BACKGROUND-COLOR 4.
       02 LINE 2 COLUMN 30 FOREGROUND-COLOR 5.
           02 LINE 3 COLUMN 30 "============" HIGHLIGHT.
           02 LINE 4 COLUMN 30 "1.Input Matriks".
           02 LINE 5 COLUMN 30 "2.Jumlah Matriks".
           02 LINE 6 COLUMN 30 "============".
           02 LINE 7 COLUMN 30 "3.Keluar".
           02 LINE 8 COLUMN 30 "============".
           02 LINE 9 COLUMN 30 "Pilihan [ ]".
           02 LINE 9 COLUMN 39 PIC 9 TO PIL.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY MENU.
           ACCEPT MENU.
           IF PIL = 1
               PERFORM MULAI-1
           GO TO MULAI
           ELSE
            IF PIL = 2
             PERFORM PROSES
                 VARYING I FROM 1 BY 1 UNTIL I > 2
                    AFTER J FROM 1 BY 1 UNTIL J > 2
         DISPLAY HAPUS-LAYAR
         DISPLAY TANDA
         PERFORM HASIL
                 VARYING I FROM 1 BY 1 UNTIL I > 2
                    AFTER J FROM 1 BY 1 UNTIL J > 2
             COMPUTE LIN = LIN + 2
              

Jumat, 04 Desember 2009

Harajuku Stlye

 Harajuku Stlye

Lovers of Japanese state may have heard about harajuku stlye but do you know about harajuku stlye?? Harajuku stlye or commonly called the 'culture bump' so what is called culture hit because their dress code (Gal) that it is 'hit' or a language easily disconnected or matching of shirts, pants, socks, shoes, to hair ornaments (usually dyed their hair, whether it's blond, red, yellow, orange, to blue and even purple) and a lot of 'weird' in her hair ponytail eg 3, 4, 5-9 ...



Feel familiar with the hair color is ..? Yes! Lots of artists in Indonesia who like to Harajuku Style.

Another of Gal:

-they use a slightly different language with the usual Japanese language ... they use language that 'less polite' that they created themselves.

-They usually play / hang out everywhere, usually still in the fringes of the road

-they are usually always crowded with his friends.

-Gal on the reputation of the Japanese was very bad in the eyes of the 'normal'

Harajuku is famous as the "hang out" people stylish and fashionable. Harajuku style is itself a kind of street fashion or street fashion that does not know the rules.



View the crash between the color, style, pattern, size, until the type of clothing worn fashion typical of the style this one. Harajuku style is divided into many subgaya like Lolita, Kogal, Gongaru, Cosplay, Yamanba, and much more. Like what exactly these forces?

Lolita for example. This style of adapting the style of Japanese beautiful doll with pale white skin and dressed like a doll sweet woman who sold in stores. Lolita is divided into several different styles of Gothic Lolita, Sweet Lolita, Classic Lolita, Punk Lolita, and Lolita Wa. All this Lolita style is for the women.

While not to be outdone, the men also have a style named Lolita Ouji or Kodona. Gothic Lolita original look to the past again when the New Wave movement was a hot was hot in the UK in the 80s.

This style of mixing Lolita doll style with the famous Gothic-style "dark", from the dark makeup to dress in black. While Punk Lolita style is also similar to the Gothic Lolita style, only difference is in details such as bracelets and necklaces ferns, images of the skull until mohawk hair.

However, because the style is essentially a puppet-style dark colors mixed with feminine colors like pink or purple was inevitable. In Indonesia, the singer Agnes Monica and the duo Maia has a similar style of dress style is Gothic Lolita.

Sweet Lolita is a style that was adapted from the manga or Japanese comics which is a children's fantasy of a Lolita. So be childish style that looks like a thick ruffle, platform shoes with high heels, hair braids, big bands as accessories and others.

Any colors are usually bright colors or soft, very girly. Although Sweet Lolita shoes look thick and tall, but apparently among other Lolita styles, worn shoes Sweet Lolita is still low. Accessories are not used to losing "nyeleneh" like a bag of fruit, a lot of key chains, and other accessories colored light.

Artis Indonesia is synonymous with this style is Joey Ayala, while the international artists who have such a sweet style of this doll is a veteran actress Shirley Temple and singer Gwen Stefani.

Classic Lolita is a style that was adapted from styles popular in the Middle Ages as a member of the royal style of French Marie Anttoinette or style of the works Juliet Romeo and Juliet romance of Shakespeare.

Last is the Wa Lolita Lolita. Wa Lolita fashion itself combines traditional Japanese Kimono is a modern Lolita fashion. So that the women who wear this style like a Japanese doll underway, complete with bakiaknya.

Well, what about the man Lolita style? Apparently they adapt styles from old Victorian style. These men also wore make-up. Only levels have different thickness.

Harajuku style is quite popular options included here is Cosplay, which is short for costume play, which serves as your favorite characters dressed in character costumes.

The character is usually followed by a hero or villain characters like the ones in anime or cartoon movies Japan, manga, and video games. Call it the cartoon fashion Sailor Moon, Tuxedo Bertopeng, City Hunter, until the character Sora from Kingdom Heart games. In fact, the children did not want to lose lho.

Cosplay style of their favorite echoes are mostly cartoon characters from Nickelodeon kids programs. Indonesian artist who often mimic the style is a member of the group Cosplay J-Rock music.

There's another Harajuku styles are no less funky and has its own fans. Kogal style for example. Kogal is also similar to Gongaru style is often also called Kogyaru style. Flat-soled boots either high or low, skirts supermini, supertebal makeup, hair color, high socks that reach above the knee, until the great accessories are required equipment if you want Kogal style or Kogyaru

;;