37 lines
1.2 KiB
COBOL
37 lines
1.2 KiB
COBOL
01 LOGONMI .
|
|
02 FILLER PIC X(12).
|
|
02 USERNL PIC S9(4) COMP-5.
|
|
02 USERNF PIC X(1).
|
|
02 FILLER REDEFINES USERNF.
|
|
04 USERNA PIC X.
|
|
02 USERNI PIC X(50).
|
|
02 PASSWL PIC S9(4) COMP-5.
|
|
02 PASSWF PIC X(1).
|
|
02 FILLER REDEFINES PASSWF.
|
|
04 PASSWA PIC X.
|
|
02 PASSWI PIC X(50).
|
|
02 INFMSL PIC S9(4) COMP-5.
|
|
02 INFMSF PIC X(1).
|
|
02 FILLER REDEFINES INFMSF.
|
|
04 INFMSA PIC X.
|
|
02 INFMSI PIC X(40).
|
|
01 LOGONMO REDEFINES LOGONMI.
|
|
02 FILLER PIC X(12).
|
|
02 FILLER PIC X(3).
|
|
02 USERNO PIC X(50).
|
|
02 FILLER PIC X(3).
|
|
02 PASSWO PIC X(50).
|
|
02 FILLER PIC X(3).
|
|
02 INFMSO PIC X(40).
|
|
01 SUXESSI .
|
|
02 FILLER PIC X(12).
|
|
02 BLANKL PIC S9(4) COMP-5.
|
|
02 BLANKF PIC X(1).
|
|
02 FILLER REDEFINES BLANKF.
|
|
04 BLANKA PIC X.
|
|
02 BLANKI PIC X(30).
|
|
01 SUXESSO REDEFINES SUXESSI.
|
|
02 FILLER PIC X(12).
|
|
02 FILLER PIC X(3).
|
|
02 BLANKO PIC X(30).
|