LMSASSCB

LMSASSCB generates the function control block.

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

prefix	Up to 3 characters to be prefixed to the field names. The default value is the string CB.
D C L	A dummy section (DSECT) is generated. A storage area is generated (without CSECT statement). Constants are defined which can be used for initialization of the control blocks.

Expansion of 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