LMSASSCB

LMSASSCB generiert den Funktionskontrollblock.

Name	Operation	Operanden
name	LMSASSCB	[P=prefix,]MF={ D | C | L }

prefix	Max. 3 Zeichen, die den Feldnamen vorangestellt werden sollen. Standardwert ist die Zeichenfolge CB.
D C L	Ein Pseudoabschnitt (DSECT) wird generiert. Ein Speicherbereich wird generiert (ohne CSECT-Anweisung). Es werden Konstanten definiert, die für die Initialisierung der Kontrollblöcke verwendet werden können.

Auflösung von LMSASSCB

***********************************************************************
*                                                                     *
*        FUNCTION CONTROL BLOCK (DSECT)                               *
*                                                                     *
***********************************************************************
        SPACE
&NAME    DSECT
&P.SCBV  DS    CL2                     VERSION OF INTERFACE MACROS   IN  CL2'04'
&P.FUNC  DS    XL1                     FUNCTION CODE                 IN  XL1'01'
&P.SUBC  DS    CL1                     SUBCODE                       IN  CL1' '
&P.ACC   DS    F                       INIT ACCESS ID             INOUT  X'FFFFFFFF'
&P.RTC   DS    XL1                     MAIN RETURNCODE              OUT  XL1'00'
&P.RES1  DS    XL1                     FREE                              XL1'00'
&P.LMSM  DS    H                       LMS-MSG-CODE                 OUT  H'0'
&P.DMSM  DS    H                       DMS-MSG-CODE                 OUT  H'0'
&P.PLAM  DS    H                       PLAM-MSG-CODE                OUT  H'0'
&P.LMSV  DS    CL12                    LMS VERSION                  OUT  CL12' '
&P.RES2  DS    XL4                     FREE                              XL4'00'
*
********************    LMS PARAMETER   *********************
*
&P.DEST  DS    CL1                   DESTROY                    INOUT  CL1' '
&P.FCB   DS    CL1                   FCBTYPE                    INOUT  CL1' '
&P.KEY   DS    CL1                   KEY                        INOUT  CL1' '
&P.OV    DS    CL1                   OVERWRITE                  INOUT  CL1' '
&P.COL   DS    H                     COLUMN                     INOUT  H'0'
&P.LINE  DS    H                     LINE                       INOUT  H'0'
&P.PI    DS    CL1                   PROTECTION INDICATOR       INOUT  CL1' '
&P.ATTR  DS    CL1                   COPYLIB WITH ATTRIBUTES    INOUT  CL1' '
&P.INFO  DS    CL1                   RECORD TYPE FOR ....       INOUT  CL1' '
&P.LDRT  DS    CL1                   DMS-FILENAME IN LD         INOUT  CL1' '
&P.RES3  DS    CL4                   FREE                              CL4' '
&P.PLNG  EQU   *-&P.SCBV              CB LENGTH