LMSCOBCB

LMSCOBCB generiert den Funktionskontrollblock.

COPY LMSCOBCB.

Auflösung von LMSCOBCB

 01  LMSUP-SCB.
    02  SCBVERSION PIC X(2)       VALUE "04".
    02  FUNC       PIC X(1)       VALUE LMSUP-UPINIT.
    02  SUBCODE    PIC X(1)       VALUE SPACE.
    02  ACC        PIC S9(9) COMP VALUE -1.
    02  RETURNCODE PIC X(1)       VALUE LOW-VALUE.
       88 LMSRET-OK               VALUE LMSUP-OK.
       88 LMSRET-TRUNC            VALUE LMSUP-TRUNC.
       88 LMSRET-EOF              VALUE LMSUP-EOF.
       88 LMSRET-LMSERR           VALUE LMSUP-LMSERR.
       88 LMSRET-PARERR           VALUE LMSUP-PARERR.
       88 LMSRET-SEQERR           VALUE LMSUP-SEQERR.
       88 LMSRET-INTERR           VALUE LMSUP-INTERR.
    02  FILLER     PIC X(1)       VALUE LOW-VALUE.
    02  LMS-MSG    PIC 9(4) COMP  VALUE 0.
    02  DMS-MSG    PIC 9(4) COMP  VALUE 0.
    02  PLAM-MSG   PIC 9(4) COMP  VALUE 0.
    02  LMSVERSION PIC X(12)      VALUE SPACES.
    02  FILLER     PIC 9(5) COMP  VALUE 0.
***                                                              ****
**************  LMS   PARAMETERS  ***********************************
***                                                              ****
    02  DESTROY    PIC X(1)       VALUE SPACE.
    02  FCB        PIC X(1)       VALUE SPACE.
    02  RKEY       PIC X(1)       VALUE SPACE.
    02  OVERWRITE  PIC X(1)       VALUE SPACE.
    02  COLUMN-P   PIC 9(4) COMP  VALUE 0.
    02  LINE-P     PIC 9(4) COMP  VALUE 0.
    02  PROT-IND   PIC X(1)       VALUE SPACE.
    02  ATTR-IND   PIC X(1)       VALUE SPACE.
    02  INFO       PIC X(1)       VALUE SPACE.
    02  FILLER     PIC X(5)       VALUE SPACES.
**************  END OF COPY ELEMENT LMSCOBCB   **********************