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).