Symbolische Namen LMSASSEQ

LMSASSEQ generiert eine Reihe von Equates, die als Programmierhilfe für Verarbeitungsoperandenwerte, Funktionscodes, Subcodes, Returncodes und Speicherungsform der Elemente dienen.

Die Werte der Verarbeitungsoperanden haben die gleiche Bedeutung wie in [1] beschrieben.

Name	Operation	Operanden
name	LMSASSEQ	[P=prefix]

prefix

Max. 3 Zeichen, die den Feldnamen vorangestellt werden sollen. Standardmäßig haben die Feldnamen keinen Prefix.

Auflösung von 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)
.*