LMSASSEQ symbolic names

LMSASSEQ generates a number of equates which serve as a programming aid for processing operand values, function codes, subcodes, return codes and storage mode of members.

For the values of the processing operands see the meanings in [1].

Name	Operation	Operands
name	LMSASSEQ	[P=prefix]

prefix

Up to 3 characters to be prefixed to the field names. By default, the field names have no prefix.

Expansion of LMSASSEQ

*****************   LMS PARAMETER VALUES   ****************************
*
&P.YES   EQU   'Y'                     YES
&P.NO    EQU   'N'                     NO
&P.NONE  EQU   'N'                     NONE
&P.ANY   EQU   ' '                     ANY
&P.UNCH  EQU   ' '                     UNCHANGED
&P.SAME  EQU   'M'                     SAME
&P.STD   EQU   'S'                     STD
*****************   FOR: CBFCB  *****************************
&P.ISAM  EQU   'I'                     ISAM
&P.SAM   EQU   'Q'                     SAM
&P.CAT   EQU   'C'                     CAT 
*****************   FOR: CBOV   *****************************
&P.EXT   EQU   'E'                     EXTEND
&P.ONLY  EQU   'O'                     ONLY
&P.NAME  EQU   'A'                     NAME
*****************   FOR: CBINFO  ****************************
&P.TXT   EQU   X'01'                   TEXT ONLY
&P.COM   EQU   X'02'                   COMMENT / DOCUMENTATION ONLY
*
*****************   FUNCTION CODES  ***********************************
*
&P.INIT  EQU   X'01'   INIT              ( CB )
&P.END   EQU   X'02'   END               ( CB )
&P.TOCP  EQU   X'03'   TOCPRIM           ( CB, TID,EI, LD, EM )
&P.TOCS  EQU   X'04'   TOCSEC            ( CB, TID,EI, LD, EM )
&P.TOC   EQU   X'05'   TOC               ( CB, TID,EI )
&P.REN   EQU   X'06'   REN               ( CB, LD, ED1,ED2 )
&P.DEL   EQU   X'07'   DEL               ( CB, LD, ED )
&P.ADD   EQU   X'08'   ADD               ( CB, FD, LD, ED1 [,ED2] )
&P.SEL   EQU   X'09'   SEL               ( CB, LD, ED, FD )
&P.COPY  EQU   X'0A'   COPY              ( CB, LD1,ED1,LD2,ED2 [,ED3] )
&P.COPST EQU   X'0B'   COPYSTR           ( CB, LD1,ED1,LD2,ED2 )
&P.LOCK  EQU   X'0C'   LOCK              ( CB, LD, ED )
&P.UNLK  EQU   X'0D'   UNLOCK            ( CB, LD, ED )
&P.OPENG EQU   X'0E'   OPEN GET          ( CB, RD, LD, ED )
&P.OPENP EQU   X'0F'   OPEN PUT          ( CB, RD, LD, ED1 [,ED2] )
&P.OPENU EQU   X'10'   OPEN UPD          ( CB, RD, LD, ED )
&P.GET   EQU   X'11'   GET               ( CB, RD, ER )
&P.PUT   EQU   X'12'   PUT               ( CB, RD, ER )
&P.CLOSE EQU   X'13'   CLOSE             ( CB, RD )
&P.LST   EQU   X'14'   LIST ELEMENT      ( CB, LD, ED )
&P.MEP   EQU   X'15'   MODIFY PROTECTION ( CB, LD, ED, PA )
&P.MLA   EQU   X'16'   MODIFY LIB. ATTR. ( CB, LD, LA, PA )
&P.SLA   EQU   X'17'   SHOW   LIB. ATTR. ( CB, LD, LI )
&P.MTA   EQU   X'18'   MODIFY TYPE ATTR. ( CB, LD, TD, TA, PA )
&P.STA   EQU   X'19'   SHOW   TYPE ATTR. ( CB, LD, TD, TI )
&P.MEA   EQU   X'1A'   MODIFY ELEM. ATTR.( CB, LD, ED, EA )
&P.COPLB EQU   X'1B'   COPY LIBRARY      ( CB, LD1,LD2 )
&P.CLOLB EQU   X'1C'   CLOSE LIBRARY     ( CB, LD )
&P.PROVI EQU   X'1D'   PROVIDE ELEMENT   ( CB, LD1,ED1,LD2,ED2 )
&P.RETUR EQU   X'1E'   RETURN ELEMENT    ( CB, LD1,ED1,LD2,ED2,ED3 )
&P.GSYSE EQU   X'1F'   GET SYSELEM       ( CB, LD, ED )
&P.REOLB EQU   X'20'   REORGANIZE LIB    ( CB, LD )
*
*****************   SUBCODES   ****************************************
*
&P.UNUSE EQU   ' '                     SUBCODE UNUSED (DEFAULT)
&P.SHORT EQU   'S'                     TOC SHORT
&P.LONG  EQU   'L'                     TOC LONG
&P.DIR   EQU   'D'                     READ DIRECT
&P.SEQ   EQU   'S'                     READ SEQUENTIAL 
&P.WRITE EQU   'W'                     CLOSE OUTPUT ELEMENT FOR WRITE
&P.RESET EQU   'R'                     FORGET OUTPUT ELEMENT
&P.SYM   EQU   'S'                     SHOW ELEMENT SYMBOLIC
&P.HEX   EQU   'H'                     SHOW-ELEMENT ALPHA+HEX
&P.INCP  EQU   'P'                     INCREMENT WITH PREFIX
&P.INCB  EQU   'B'                     INCREMENT WITH BASE
&P.HIGP  EQU   'H'                     HIGHEST EXISTING WITH PREFIX
&P.EXTRA EQU   'X'                     FORMAT-B RECORDS ALLOWED
*
*****************   RETURNCODES   *************************************
*
&P.OK    EQU   X'00'                   OK
&P.TRUNC EQU   X'04'                   RECORD TRUNCATED
&P.EOF   EQU   X'08'                   END OF GET/TOC 
&P.LMSER EQU   X'0C'                   LMS ERROR
&P.PARER EQU   X'14'                   PARAMETER ERROR
&P.SEQER EQU   X'18'                   SEQUENCE ERROR
&P.INTER EQU   X'1C'                   LMS INTERNAL ERROR
*
*****************   STORAGE FORM   ************************************
*
&P.FULL  EQU   'V'                     FULL  ELEMENT
&P.DELTA EQU   'D'                     DELTA ELEMENT
*
*****************  CONVENTIONS  ***************************************
*
&P.CNONE EQU   'N'                     NONE
&P.CSEQ  EQU   'S'                     STD-SEQUENCE
&P.CMSEQ EQU   'M'                     MULTI-SEQUENCE
&P.CTREE EQU   'T'                     STD-TREE
*
*****************  PROTECTION INDICATORS  *****************************
*
&P.PNONE EQU   'N'                     NONE
&P.PSTD  EQU   'Y'                     STD-PROTECTION
&P.PGD   EQU   'G'                     PROTECTION BY GUARD
*
***********    SOURCE CODE CONTROL     ********************************
*
&P.FREE  EQU   '-'                     FREE
&P.INHLD EQU   'H'                     IN HOLD
*
***********    WRITE CONTROL           ********************************
*
&P.ACTIV EQU   'A'                     ACTIVATED
&P.DEACT EQU   'D'                     DEACTIVATED
*
***********    ACCESS DATE             ********************************
*
&P.KEEP  EQU   'K'                     KEEP
*
***********    MODIFICATION DATE INDICATOR   **************************
*
&P.OLD   EQU   'O'                     BY-SOURCE
&P.SDAT  EQU   'S'                     NEW (SYSTEM DATE)
.*