* %GO TO ELEMPLS1; 00300001 */* 00350001 MACRO 00400001 IDAELEM &DSECT=YES 00450001 AGO .ELEMBAL */ 00500001 */* ELEMENT ARGUMENT CONTROL ENTRY */ 00600001 */* CREATED BY USER WITH GENCB, MODCB, SHOWCB, AND TESTCB MACROS*/ 00900001 */* */ 01200001 */* COPYRIGHT = NONE */ 01300040 */* STATUS = MVS VERSION 037 */ 01350040 */* */ 01500001 */* ___________________________________________________ */ 01800001 */* | | | */ 02100001 */* | ELEMKWTC | ELEMBLEN | */ 02400001 */* |________________________|________________________| */ 02700001 */* | | */ 03000001 */* | ELEMVAL(1) | */ 03300001 */* |_________________________________________________| */ 03600001 */* | | */ 03900001 */* | ELEMVAL(2) | */ 04200001 */* |_________________________________________________| */ 04500001 */* */ 04800001 *%ELEMPLS1 :; 05100001 * %IF ELEMEND ^= ',' /* IF LAST BLOCK */ 05400001 * %THEN %ELEMEND = ';'; /* THEN CLOSE DCL STMT */ 05700001 * %IF ELEMLVL ^= '' /* IF BLOCK CONCATENATED */ 06000001 * %THEN % GO TO ELEMPLS2; /* THEN BYPASS DECLARE */ 06300001 * DCL 1 ELEM BASED /* LEVEL ONE DECLARE */ 06600001 * %GO TO ELEMPLS3; /* SKIP MINOR LEVEL DCL */ 06900001 *%ELEMPLS2 : ELEMDUM = ELEMLVL || ' ELEM'; /* SET MINOR LEVEL NUMBER*/ 07200001 * ELEMDUM /* MINOR STRUCTURE */ 07500001 *%ELEMPLS3 :; 07800001 * BDY(WORD), 08100001 * /******************************************************/ 08400001 * /* */ 08700001 * /* ELEMENT ARGUMENT CONTROL ENTRY */ 09000001 * /* */ 09300001 * /******************************************************/ 09600001 * 09900001 * 5 ELEMKWTC FIXED(15), /* KEYWORD TYPE CODE */ 10200001 * %/******************************************************/ 10500001 * /* */ 10800001 * /* ACB KEYWORD TYPE CODES */ 11100001 * /* */ 11400001 * /******************************************************/ 11700001 * ELEMATRB = '1'; /* ATRB */ 12000001 * %ELEMAVSP = '2'; /* AVSPAC */ 12300001 * %ELEMACBL = '3'; /* ACBLEN FOR VSAM ACB */ 12600001 * %ELEMBFND = '4'; /* BUFND */ 12900001 * %ELEMBFNI = '5'; /* BUFNI */ 13200001 * %ELEMBFNO = '6'; /* BUFNO */ 13500001 * %ELEMBFSP = '7'; /* BUFSP */ 13800001 * %ELEMCINV = '8'; /* CINV */ 14100001 * %ELEMDDNM = '9'; /* DDNAME */ 14400001 * %ELEMERBA = '10'; /* ENDRBA */ 14700001 * %ELEMERR = '11'; /* ERROR */ 15000001 * %ELEMXLST = '12'; /* EXLST */ 15300001 * %ELEMFS = '13'; /* FS */ 15600001 * %ELEMOMAR = '14'; /* MAREA */ 15650001 * %ELEMOMLN = '15'; /* MLEN */ 15700001 * %ELEMKELA = '16'; /* KEYLEN */ 15900001 * %ELEMLRCL = '17'; /* LRECL */ 16200001 * %ELEMMCRF = '18'; /* MACRF */ 16500001 * %ELEMNCIS = '19'; /* NCIS */ 16800001 * %ELEMNDLR = '20'; /* NDELR */ 17100001 * %ELEMNXCP = '21'; /* NEXCP */ 17400001 * %ELEMNEXT = '22'; /* NEXT */ 17700001 * %ELEMNISR = '23'; /* NINSR */ 18000001 * %ELEMNIXL = '24'; /* NIXL */ 18300001 * %ELEMNLGR = '25'; /* NLOGR */ 18600001 * %ELEMNRTR = '26'; /* NRETR */ 18900001 * %ELEMNSSS = '27'; /* NSSS */ 19200001 * %ELEMNUDR = '28'; /* NUPDR */ 19500001 * %ELEMOFLG = '29'; /* OFLAGS */ 19800001 * %ELEMPSWD = '30'; /* PASSWD */ 20100001 * %ELEMRKP = '31'; /* RKP */ 20400001 * %ELEMSTRN = '32'; /* STRNO */ 20700001 * %ELEMOOBJ = '33'; /* OPENOBJ */ 20750001 * %ELEMCTLG = '34'; /* CATALOG */ 21000001 * %ELEMSTST = '35'; /* STMST */ 21300001 * %ELEMBSTN = '36'; /* BSTRNO */ 21302001 * %ELEMAXRK = '60'; /* AIXRKP */ 21304001 * %ELEMACBV = '61'; /* ACBLEN FOR VTAM ACB */ 21310001 * %ELEMAM = '64'; /* AM */ 21350001 * %ELEMAPPL = '65'; /* APPLID */ 21400001 * %ELEMCRA = '89'; /* CRA */ 21450001 * %ELEMBFRF = '124'; /* BFRFND */ 21500001 * %ELEMBFDS = '125'; /* BUFRDS */ 21510001 * %ELEMNUIW = '126'; /* NUIW */ 21520001 * %ELEMUIW = '127'; /* UIW */ 21550001 * %ELEMSTMX = '128'; /* STRMAX */ 21600001 * %ELEMUPTR = '140'; /* USERPTR */ 21750001 * %ELEMJFCB = '141'; /* JFCB */ 21800001 * %ELEMHRBA = '148'; /* HI ALLOCATE RBA */ 22200040 * %/******************************************************/ 22550001 * /* */ 22600001 * /* EXLST KEYWORD TYPE CODES */ 22650001 * /* */ 22700001 * /******************************************************/ 22800001 * ELEMEDAD = '37'; /* EODAD */ 23100001 * %ELEMJNAD = '39'; /* JRNAD */ 23400001 * %ELEMLEAD = '40'; /* LERAD */ 23700001 * %ELEMSYAD = '41'; /* SYNAD */ 24000001 * %ELEMXLEN = '42'; /* EXLLEN FOR VSAM EXLST */ 24300001 * %ELEMEXLV = '63'; /* EXLLEN FOR VTAM EXLST */ 24350001 * %ELEMTPEN = '66'; /* TPEND */ 24400001 * %ELEMLGON = '67'; /* LOGON */ 24450001 * %ELEMLSTM = '68'; /* LOSTERM */ 24500001 * %ELEMATTN = '69'; /* ATTN */ 24550001 * %ELEMRLRQ = '70'; /* RELRQ */ 24560001 * %ELEMSCIP = '120'; /* SCIP */ 24590001 * %ELEMDFAS = '121'; /* DFASY */ 24592001 * %ELEMERSP = '122'; /* RESP */ 24594001 * %ELEMNSXT = '147'; /* NSEXIT @ZA36992*/ 24994040 * %/******************************************************/ 25510001 * /* */ 25520001 * /* RPL KEYWORD TYPE CODES */ 25530001 * /* */ 25540001 * /******************************************************/ 25800001 * ELEMACB = '43'; /* ACB */ 26100001 * %ELEMAREA = '44'; /* AREA */ 26400001 * %ELEMALEN = '45'; /* AREALEN */ 26700001 * %ELEMARG = '46'; /* ARG */ 27000001 * %ELEMECB = '47'; /* ECB */ 27300001 * %ELEMKELR = '48'; /* KEYLEN */ 27600001 * %ELEMMSGA = '49'; /* MSGAREA */ 27900001 * %ELEMMSGL = '50'; /* MSGLEN */ 28200001 * %ELEMNRPL = '51'; /* NXTRPL */ 28500001 * %ELEMOPTC = '52'; /* OPTCD */ 28800001 * %ELEMRECL = '53'; /* RECLEN */ 29100001 * %ELEMIO = '54'; /* IO */ 29400001 * %ELEMRPLL = '55'; /* RPLLEN FOR VSAM RPL */ 29700001 * %ELEMFDBK = '56'; /* FDBK */ 30000001 * %ELEMRBA = '57'; /* RBA */ 30300001 * %ELEMAXPC = '58'; /* AIXPC */ 30302001 * %ELEMAXFL = '59'; /* AIXFLAG */ 30304001 * %ELEMRPLV = '62'; /* RPLLEN FOR VTAM RPL */ 30310001 * %ELEMAALN = '73'; /* AAREALN */ 30320001 * %ELEMARCL = '74'; /* ARECLEN */ 30330001 * %ELEMEXIT = '75'; /* EXIT */ 30350001 * %ELEMUSER = '78'; /* USER */ 30460001 * %ELEMNIB = '79'; /* NIB */ 30500001 * %ELEMAARE = '87'; /* AAREA */ 30550001 * %ELEMBRCH = '88'; /* BRANCH */ 30560001 * %ELEMDFLG = '93'; /* DATAFLG */ 30570001 * %ELEMRTNC = '94'; /* RTNCD */ 30580001 * %ELEMTRNS = '95'; /* TRANSID */ 30590001 * %ELEMFDB2 = '96'; /* FDBK2 */ 30592001 * %ELEMSENS = '97'; /* SENSE */ 30594001 * %ELEMREQ = '98'; /* REQ */ 30596001 * %ELEMFTNC = '99'; /* FTNCD */ 30598001 * %ELEMCHNG = '101'; /* CHNGDIR */ 30598401 * %ELEMSTYP = '102'; /* STYPE */ 30598801 * %ELEMRTYP = '103'; /* RTYPE */ 30599201 * %ELEMCHAI = '104'; /* CHAIN */ 30599601 * %ELEMPOST = '105'; /* POST */ 30599701 * %ELEMRESP = '106'; /* RESP */ 30599801 * %ELEMCTRL = '107'; /* CONTROL */ 30599901 * %ELEMOBSQ = '108'; /* OBSQAC */ 30649901 * %ELEMIBSQ = '109'; /* IBSQAC */ 30659901 * %ELEMOBSV = '110'; /* OBSQVAL */ 30669901 * %ELEMIBSV = '111'; /* IBSQVAL */ 30679901 * %ELEMSEQN = '112'; /* SEQNO */ 30689901 * %ELEMSNEO = '113'; /* SSENSEO */ 30691901 * %ELEMSNEI = '114'; /* SSENSEI */ 30693901 * %ELEMUNEO = '115'; /* USENSEO */ 30695901 * %ELEMUNEI = '116'; /* USENSEI */ 30697901 * %ELEMBRCK = '133'; /* BRACKET */ 30698701 * %ELEMSNMO = '134'; /* SSENSMO */ 30699101 * %ELEMSNMI = '135'; /* SSENSMI */ 30699501 * %ELEMSIGD = '136'; /* SIGDATA */ 30699601 * %ELEMCDSL = '145'; /* CODESEL */ 30760001 * %ELEMCRYP = '149'; /* CRYPT */ 30960040 * %/******************************************************/ 31210001 * /* */ 31220001 * /* NIB KEYWORD TYPE CODES */ 31230001 * /* */ 31240001 * /******************************************************/ 31250001 * ELEMPROC = '80'; /* PROC */ 31260001 * %ELEMNUSR = '81'; /* USERFLD */ 31270001 * %ELEMLSTN = '82'; /* LISTEND */ 31280001 * %ELEMNIBL = '83'; /* NIBLEN */ 31290001 * %ELEMMODE = '84'; /* MODE */ 31300001 * %ELEMCOND = '85'; /* CONDN */ 31310001 * %ELEMDEVC = '86'; /* DEVCHAR */ 31320001 * %ELEMCID = '90'; /* CID */ 31330001 * %ELEMNAME = '91'; /* NAME */ 31340001 * %ELEMCON = '92'; /* CON */ 31350001 * %ELEMEXLT = '130'; /* EXLST */ 31360001 * %ELEMRPLI = '131'; /* RESPLIM */ 31370001 * %ELEMSDT = '132'; /* SDT */ 31380001 * %ELEMLMOD = '142'; /* LOGMODE */ 31400001 * %ELEMNDAR = '143'; /* BNDAREA */ 31450001 * %ELEMENCR = '150'; /* ENCRIPTION */ 32050040 * 5 ELEMBLEN FIXED(15), /* ELEMVAL LENGTH (WDS-1)*/ 32800001 * 5 ELEMCSTR CHAR(8) BDY(WORD),/* CHARACTER STRING ENTRY*/ 32850001 * 10 ELEMFIX FIXED(31), /* FIXED POINT ENTRY */ 32900001 * 15 ELEMPTR PTR(31), /* POINTER ENTRY */ 33310001 * 20 ELEMBSTR BIT(32), /* BIT STRING ENTRY */ 33320001 * %/************************************************/ 33330001 * /* */ 33340001 * /* ATRB KEYWORD BIT STRING INDEXES (ACB) */ 33350001 * /* */ 33360001 * /************************************************/ 33370001 * ELEMKSDS = '1'; /* INDEX FOR KSDS CODE */ 33600001 * %ELEMESDS = '2'; /* INDEX FOR ESDS CODE */ 33900001 * %ELEMWCK = '3'; /* INDEX FOR WCK CODE */ 34200001 * %ELEMSSWD = '4'; /* INDEX FOR SSWD CODE */ 34500001 * %ELEMREPL = '5'; /* INDEX FOR REPL CODE */ 34800001 * %ELEMRRDS = '6'; /* INDEX FOR RRDS CODE */ 34850001 * %ELEMSPAN = '7'; /* INDEX FOR SPAN CODE */ 34900001 * %ELEMUNQ = '8'; /* INDEX FOR UNQ CODE */ 34950001 * %/************************************************/ 35100001 * /* */ 35400001 * /* MACRF KEYWORD BIT STRING INDEXES (ACB) */ 35700001 * /* */ 36000001 * /************************************************/ 36300001 * ELEMMKEY = '1'; /* INDEX FOR KEY CODE */ 36600001 * %ELEMMADR = '2'; /* INDEX FOR ADR CODE */ 36900001 * %ELEMMCNV = '3'; /* INDEX FOR CNV CODE */ 37200001 * %ELEMMSEQ = '4'; /* INDEX FOR SEQ CODE */ 37500001 * %ELEMMSKP = '5'; /* INDEX FOR SKP CODE */ 37800001 * %ELEMMDIR = '6'; /* INDEX FOR DIR CODE */ 38100001 * %ELEMMIN = '7'; /* INDEX FOR IN CODE */ 38400001 * %ELEMMOUT = '8'; /* INDEX FOR OUT CODE */ 38700001 * %ELEMMNUB = '9'; /* INDEX FOR NUB CODE */ 39000001 * %ELEMMUBF = '10'; /* INDEX FOR UBF CODE */ 39300001 * %ELEMLOGN = '11'; /* INDEX FOR LOGON CODE */ 39310001 * %ELEMNLGN = '12'; /* INDEX FOR NLOGON CODE */ 39320001 * %ELEMDDN = '14'; /* INDEX FOR DDN CODE */ 39330001 * %ELEMDSN = '15'; /* INDEX FOR DSN CODE */ 39340001 * %ELEMNRM = '16'; /* INDEX FOR NRM CODE */ 39350001 * %ELEMAIX = '17'; /* INDEX FOR AIX CODE */ 39360001 * %ELEMNSR = '18'; /* INDEX FOR NSR CODE */ 39370001 * %ELEMLSR = '19'; /* INDEX FOR LSR CODE */ 39380001 * %ELEMGSR = '20'; /* INDEX FOR GSR CODE */ 39390001 * %ELEMNCI = '21'; /* INDEX FOR NCI CODE */ 39400001 * %ELEMICI = '22'; /* INDEX FOR ICI CODE */ 39410001 * %ELEMNDF = '23'; /* INDEX FOR NDF CODE */ 39420001 * %ELEMDFR = '24'; /* INDEX FOR DFR CODE */ 39430001 * %ELEMNIS = '25'; /* INDEX FOR NIS CODE */ 39440001 * %ELEMSIS = '26'; /* INDEX FOR SIS CODE */ 39460001 * %ELEMNFX = '27'; /* INDEX FOR NFX CODE */ 39470001 * %ELEMCFX = '28'; /* INDEX FOR CFX CODE */ 39480001 * %ELEMRST = '29'; /* INDEX FOR RST CODE */ 39490001 * %ELEMNRS = '30'; /* INDEX FOR NRS CODE */ 39500001 * %/************************************************/ 39550001 * /* */ 39552001 * /* BRANCH KEYWORD BIT STRING INDEXES (RPL) */ 39554001 * /* */ 39556001 * /************************************************/ 39558001 * ELEMBYES = '1'; /* INDEX FOR YES CODE */ 39560001 * %ELEMBNO = '2'; /* INDEX FOR NO CODE */ 39570001 * %/************************************************/ 39580001 * /* */ 39582001 * /* CRA KEYWORD BIT STRING INDEXES (ACB) */ 39584001 * /* */ 39586001 * /************************************************/ 39588001 * ELEMCSCR = '1'; /* INDEX FOR SCRA CODE */ 39620001 * %ELEMCUCR = '2'; /* INDEX FOR UCRA CODE */ 39640001 * %/************************************************/ 39690001 * /* */ 39692001 * /* OPENOBJ KEYWORD BIT STRING INDEXES (ACB) */ 39694001 * /* */ 39696001 * /************************************************/ 39698001 * ELEMOAIX = '1'; /* INDEX FOR AIX CODE */ 39710001 * %ELEMOPAT = '2'; /* INDEX FOR PATH CODE */ 39720001 * %ELEMOBAS = '3'; /* INDEX FOR BASE CODE */ 39730001 * %/************************************************/ 39800001 * /* */ 39900001 * /* OFLAGS KEYWORD BIT STRING INDEXES (ACB) */ 40200001 * /* */ 40500001 * /************************************************/ 40800001 * ELEMOPEN = '1'; /* INDEX FOR OPEN CODE */ 41100001 * %/************************************************/ 41150001 * /* */ 41200001 * /* AM KEYWORD BIT STRING INDEXES (ALL) */ 41250001 * /* */ 41300001 * /************************************************/ 41350001 * ELEMVSAM = '1'; /* INDEX FOR VSAM CODE */ 41360001 * %ELEMVTAM = '2'; /* INDEX FOR VTAM CODE */ 41370001 * %/************************************************/ 41400001 * /* */ 41410001 * /* CATALOG KEYWORD BIT STRING INDEXES (ACB) */ 41420001 * /* */ 41430001 * /************************************************/ 41440001 * ELEMCYES = '1'; /* INDEX FOR YES CODE */ 41450001 * %ELEMCNO = '2'; /* INDEX FOR NO CODE */ 41460001 * %/************************************************/ 43250001 * /* */ 43300001 * /* DATAFLG KEYWORD BIT STRING INDEXES (RPL) */ 43350001 * /* */ 43400001 * /************************************************/ 43450001 * ELEMDUNS = '1'; /* INDEX FOR UNSOL CODE */ 43460001 * %ELEMDEOB = '2'; /* INDEX FOR EOB CODE */ 43480001 * %ELEMDEOM = '3'; /* INDEX FOR EOM CODE */ 43490001 * %ELEMDEOT = '4'; /* INDEX FOR EOT CODE */ 43492001 * %ELEMDLGF = '5'; /* INDEX FOR LOGOFF CODE */ 43494001 * %ELEMDLG = '6'; /* INDEX FOR LG CODE */ 43496001 * %ELEMDSOH = '7'; /* INDEX FOR SOH CODE */ 43498001 * %/************************************************/ 43500001 * /* */ 43800001 * /* OPTCD KEYWORD BIT STRING INDEXES (RPL) */ 44100001 * /* */ 44400001 * /************************************************/ 44700001 * ELEMOKEY = '1'; /* INDEX FOR KEY CODE */ 45000001 * %ELEMOADR = '2'; /* INDEX FOR ADR CODE */ 45300001 * %ELEMOCNV = '3'; /* INDEX FOR CNV CODE */ 45600001 * %ELEMOSEQ = '4'; /* INDEX FOR SEQ CODE */ 45900001 * %ELEMODIR = '5'; /* INDEX FOR DIR CODE */ 46200001 * %ELEMOSKP = '6'; /* INDEX FOR SKP CODE */ 46500001 * %ELEMOSYN = '7'; /* INDEX FOR SYN CODE */ 46800001 * %ELEMOASY = '8'; /* INDEX FOR ASY CODE */ 47100001 * %ELEMONUP = '9'; /* INDEX FOR NUP CODE */ 47400001 * %ELEMOUPD = '10'; /* INDEX FOR UPD CODE */ 47700001 * %ELEMONSP = '11'; /* INDEX FOR NSP CODE */ 48000001 * %ELEMOKEQ = '12'; /* INDEX FOR KEQ CODE */ 48300001 * %ELEMOKGE = '13'; /* INDEX FOR KGE CODE */ 48600001 * %ELEMOFKS = '14'; /* INDEX FOR FKS CODE */ 48900001 * %ELEMOGEN = '15'; /* INDEX FOR GEN CODE */ 49200001 * %ELEMOMVE = '16'; /* INDEX FOR MVE CODE */ 49500001 * %ELEMOLOC = '17'; /* INDEX FOR LOC CODE */ 49800001 * %ELEMOFWD = '18'; /* INDEX FOR FWD CODE */ 49804001 * %ELEMOBWD = '19'; /* INDEX FOR BWD CODE */ 49808001 * %ELEMOARD = '20'; /* INDEX FOR ARD CODE */ 49812001 * %ELEMOLRD = '21'; /* INDEX FOR LRD CODE */ 49816001 * %ELEMOCA = '33'; /* INDEX FOR CA CODE */ 49820001 * %ELEMOCS = '34'; /* INDEX FOR CS CODE */ 49824001 * %ELEMOREL = '37'; /* INDEX FOR RELEASE CODE*/ 49836001 * %ELEMOPAS = '38'; /* INDEX FOR PASS CODE */ 49836801 * %ELEMONER = '39'; /* INDEX FOR NERASE CODE */ 49840001 * %ELEMOEAU = '40'; /* INDEX FOR EAU CODE */ 49844001 * %ELEMOERA = '41'; /* INDEX FOR ERASE CODE */ 49848001 * %ELEMOSPC = '42'; /* INDEX FOR SPEC CODE */ 49852001 * %ELEMOANY = '43'; /* INDEX FOR ANY CODE */ 49856001 * %ELEMONCN = '44'; /* INDEX FOR NCONV CODE */ 49860001 * %ELEMOCON = '45'; /* INDEX FOR CONV CODE */ 49864001 * %ELEMOLBT = '46'; /* INDEX FOR LBT CODE */ 49868001 * %ELEMOLBM = '47'; /* INDEX FOR LBM CODE */ 49872001 * %ELEMOBLK = '48'; /* INDEX FOR BLK CODE */ 49876001 * %ELEMOCND = '49'; /* INDEX FOR COND CODE */ 49880001 * %ELEMOUNC = '50'; /* INDEX FOR UNCOND CODE */ 49884001 * %ELEMOLCK = '51'; /* INDEX FOR LOCK CODE */ 49888001 * %ELEMOLMS = '54'; /* INDEX FOR LOGONMSG */ 49892001 * %ELEMODVC = '55'; /* INDEX FOR DEVCHAR CODE*/ 49896001 * %ELEMOTER = '56'; /* INDEX FOR TERMS CODE */ 49900001 * %ELEMOAPS = '57'; /* INDEX FOR APPSTAT CODE*/ 49904001 * %ELEMOCTS = '58'; /* INDEX FOR COUNTS CODE */ 49908001 * %ELEMORNN = '59'; /* INDEX FOR RNNAME CODE */ 49912001 * %ELEMOCIX = '60'; /* INDEX FOR CIDXLATE */ 49916001 * %ELEMOTLG = '61'; /* INDEX FOR TOPLOGON */ 49920001 * %ELEMOBSC = '62'; /* INDEX FOR BSCID CODE */ 49924001 * %ELEMODIS = '63'; /* INDEX FOR DISPLAY CODE*/ 49928001 * %ELEMORLQ = '64'; /* INDEX FOR RELRQ CODE */ 49932001 * %ELEMONRQ = '65'; /* INDEX FOR NRELRQ CODE */ 49936001 * %ELEMOQ = '66'; /* INDEX FOR Q CODE */ 49940001 * %ELEMONQ = '67'; /* INDEX FOR NQ CODE */ 49944001 * %ELEMOPND = '68'; /* INDEX FOR PEND CODE */ 49948001 * %ELEMOSES = '69'; /* INDEX FOR SESSION CODE*/ 49952001 * %ELEMOACT = '70'; /* INDEX FOR ACTIVE CODE */ 49956001 * %ELEMOUCD = '71'; /* INDEX FOR UNCONDL CODE*/ 49960001 * %ELEMOQUI = '72'; /* INDEX FOR QUIESCE CODE*/ 49964001 * %ELEMOSTR = '73'; /* INDEX FOR START CODE */ 49968001 * %ELEMOSTP = '74'; /* INDEX FOR STOP CODE */ 49972001 * %ELEMOACC = '75'; /* INDEX FOR ACCEPT CODE */ 49976001 * %ELEMOACQ = '76'; /* INDEX FOR ACQUIRE CODE*/ 49980001 * %ELEMOCAL = '78'; /* INDEX FOR CONALL CODE */ 49988001 * %ELEMOCAN = '79'; /* INDEX FOR CONANY CODE */ 49992001 * %ELEMOKEE = '82'; /* INDEX FOR KEEP CODE */ 50004001 * %ELEMOTRN = '83'; /* INDEX FOR TRUNC CODE */ 50008001 * %ELEMONBT = '84'; /* INDEX FOR NIBTK CODE */ 50012001 * %ELEMOSEK = '87'; /* INDEX FOR SESSKEY CODE*/ 50020040 * %ELEMOFMH = '88'; /* INDEX FOR FMHDR CODE */ 50028001 * %ELEMONFM = '89'; /* INDEX FOR NFMHDR CODE */ 50032001 * %ELEMOSPM = '90'; /* INDEX FOR SESSPARM */ 50032401 * %/************************************************/ 50033001 * /* */ 50034001 * /* CHNGDIR KEYWORD BIT STRING INDEXES (RPL) */ 50035001 * /* */ 50036001 * /************************************************/ 50037001 * ELEMCNCM = '1'; /* INDEX FOR NCMD CODE */ 50038001 * %ELEMCCMD = '2'; /* INDEX FOR CMD CODE */ 50039001 * %ELEMCNRQ = '3'; /* INDEX FOR NREQ CODE */ 50040001 * %ELEMCREQ = '4'; /* INDEX FOR REQ CODE */ 50041001 * %/************************************************/ 50041101 * /* */ 50041201 * /* CODESEL KEYWORD BIT STRING INDEXES (RPL) */ 50041301 * /* */ 50041401 * /************************************************/ 50041501 * ELEMCSTD = '1'; /* INDEX FOR STANDRD CODE*/ 50042001 * %ELEMCALT = '2'; /* INDEX FOR ALT CODE */ 50042501 * %/************************************************/ 50045101 * /* */ 50045201 * /* STYPE KEYWORD BIT STRING INDEXES (RPL) */ 50045301 * /* */ 50045401 * /************************************************/ 50046001 * ELEMSREQ = '1'; /* INDEX FOR STYPE CODE */ 50047001 * %ELEMSRES = '2'; /* INDEX FOR RESP CODE */ 50048001 * %/************************************************/ 50049001 * /* */ 50050001 * /* RTYPE KEYWORD BIT STRING INDEXES (RPL) */ 50051001 * /* */ 50052001 * /************************************************/ 50053001 * ELEMRNRS = '1'; /* INDEX FOR NRESP CODE */ 50054001 * %ELEMRRSP = '2'; /* INDEX FOR RESP CODE */ 50055001 * %ELEMRDFY = '3'; /* INDEX FOR DFSYN CODE */ 50056001 * %ELEMRNDF = '4'; /* INDEX FOR NDFSYN CODE */ 50057001 * %ELEMRNAS = '5'; /* INDEX FOR NDFASY CODE */ 50058001 * %ELEMRDFA = '6'; /* INDEX FOR DFASY CODE */ 50059001 * %/************************************************/ 50062001 * /* */ 50063001 * /* CHAIN KEYWORD BIT STRING INDEXES (RPL) */ 50064001 * /* */ 50065001 * /************************************************/ 50066001 * ELEMCFST = '1'; /* INDEX FOR FIRST CODE */ 50067001 * %ELEMCMID = '2'; /* INDEX FOR MIDDLE CODE */ 50068001 * %ELEMCLST = '3'; /* INDEX FOR LAST CODE */ 50069001 * %ELEMCONL = '4'; /* INDEX FOR ONLY CODE */ 50070001 * %/************************************************/ 50071001 * /* */ 50072001 * /* POST KEYWORD BIT STRING INDEXES (RPL) */ 50073001 * /* */ 50074001 * /************************************************/ 50075001 * ELEMPRSP = '1'; /* INDEX FOR RESP CODE */ 50076001 * %ELEMPSCH = '2'; /* INDEX FOR SCHED CODE */ 50077001 * %/************************************************/ 50078001 * /* */ 50079001 * /* RESPOND KEYWORD BIT STRING INDEXES (RPL) */ 50080001 * /* */ 50081001 * /************************************************/ 50082001 * ELEMRNEX = '1'; /* INDEX FOR NEX CODE */ 50083001 * %ELEMREX = '2'; /* INDEX FOR EX CODE */ 50084001 * %ELEMRFME = '3'; /* INDEX FOR FME CODE */ 50085001 * %ELEMRNFM = '4'; /* INDEX FOR NFME CODE */ 50086001 * %ELEMRNRR = '5'; /* INDEX FOR NRRN CODE */ 50087001 * %ELEMRRRN = '6'; /* INDEX FOR RRN CODE */ 50088001 * %ELEMRQRE = '7'; /* INDEX FOR QRESP CODE */ 50088340 * %ELEMRNQR = '8'; /* INDEX FOR NQRESP CODE */ 50088640 * %/************************************************/ 50089001 * /* */ 50090001 * /* CONTROL KEYWORD BIT STRING INDEXES (RPL) */ 50091001 * /* */ 50092001 * /************************************************/ 50093001 * /* VTAM CONTROL KEYWORDS */ 50093401 * ELEMCDAT = '1'; /* INDEX FOR DATA CODE */ 50094001 * %ELEMCCAN = '2'; /* INDEX FOR CANCEL CODE */ 50095001 * %ELEMCQC = '3'; /* INDEX FOR QC CODE */ 50096001 * %ELEMCQEC = '4'; /* INDEX FOR QEC CODE */ 50097001 * %ELEMCCHA = '5'; /* INDEX FOR CHASE CODE */ 50098001 * %ELEMCREL = '6'; /* INDEX FOR RELQ CODE */ 50099001 * %ELEMCBID = '7'; /* INDEX FOR BID CODE */ 50099201 * %ELEMCRTR = '8'; /* INDEX FOR RTR CODE */ 50099401 * %ELEMCLUS = '9'; /* INDEX FOR LUS CODE */ 50099601 * %ELEMCSIG = '10'; /* INDEX FOR SIGNAL CODE */ 50099801 * %ELEMCSDT = '11'; /* INDEX FOR SDT CODE */ 50099901 * %ELEMCCLR = '12'; /* INDEX FOR CLEAR CODE */ 50100901 * %ELEMCSTS = '13'; /* INDEX FOR STSN CODE */ 50101101 * %ELEMCSHU = '14'; /* INDEX FOR SHUTD CODE */ 50101301 * %ELEMCRQR = '15'; /* INDEX FOR RQR CODE */ 50102301 * %ELEMCRSH = '16'; /* INDEX FOR RSHUTD */ 50103301 * %ELEMCSHC = '17'; /* INDEX FOR SHUTC */ 50104301 * %ELEMBIND = '18'; /* INDEX FOR BIND CODE */ 50104540 * %ELEMUNBD = '19'; /* INDEX FOR UNBIND CODE */ 50104740 * %ELEMSBI = '20'; /* INDEX FOR SBI CODE */ 50104940 * %ELEMBIS = '21'; /* INDEX FOR BIS CODE */ 50105140 * %/************************************************/ 50105301 * /* */ 50106301 * /* OBSQAC KEYWORD BIT STRING INDEXES (RPL) */ 50108501 * /* */ 50108601 * /************************************************/ 50108701 * ELEMOSET = '1'; /* INDEX FOR SET CODE */ 50108801 * %ELEMOTST = '2'; /* INDEX FOR TESTSET CODE*/ 50109240 * %ELEMORES = '3'; /* INDEX FOR RESET CODE */ 50109540 * %ELEMOIGN = '4'; /* INDEX FOR IGNORE CODE */ 50109840 * %ELEMOTPO = '5'; /* INDEX FOR TESTPOS CODE*/ 50110140 * %ELEMOTNE = '6'; /* INDEX FOR TESTNEG CODE*/ 50110440 * %ELEMOINV = '7'; /* INDEX FOR INVALID CODE*/ 50110740 * %/************************************************/ 50111601 * /* */ 50112001 * /* IBSQAC KEYWORD BIT STRING INDEXES (RPL) */ 50112401 * /* */ 50112801 * /************************************************/ 50113201 * ELEMISET = '1'; /* INDEX FOR SET CODE */ 50113601 * %ELEMITST = '2'; /* INDEX FOR TESTSET CODE*/ 50114040 * %ELEMIRES = '3'; /* INDEX FOR RESET CODE */ 50114340 * %ELEMIIGN = '4'; /* INDEX FOR IGNORE CODE */ 50114640 * %ELEMITPO = '5'; /* INDEX FOR TESTPOS CODE*/ 50114940 * %ELEMITNE = '6'; /* INDEX FOR TESTNEG CODE*/ 50115240 * %ELEMIINV = '7'; /* INDEX FOR INVALID CODE*/ 50115540 * %/************************************************/ 50116401 * /* */ 50116801 * /* SSENSEO KEYWORD BIT STRING INDEXES (RPL)*/ 50117201 * /* */ 50117601 * /************************************************/ 50118001 * ELEMOCPM = '1'; /* INDEX FOR CPM CODE */ 50118401 * %ELEMOSTA = '2'; /* INDEX FOR STATE CODE */ 50118801 * %ELEMOFI = '3'; /* INDEX FOR FI CODE */ 50119201 * %ELEMORR = '4'; /* INDEX FOR RR CODE */ 50119601 * %/************************************************/ 50120001 * /* */ 50120401 * /* SSENSEI KEYWORD BIT STRING INDEXES (RPL) */ 50120801 * /* */ 50121201 * /************************************************/ 50121601 * ELEMIPAT = '1'; /* INDEX FOR PATH CODE */ 50122001 * %ELEMICPM = '2'; /* INDEX FOR CPM CODE */ 50122401 * %ELEMISTA = '3'; /* INDEX FOR STATE CODE */ 50122801 * %ELEMIFI = '4'; /* INDEX FOR FI CODE */ 50123201 * %ELEMIRR = '5'; /* INDEX FOR RR CODE */ 50123601 * %/************************************************/ 50126801 * /* */ 50127201 * /* AIXFLAG KEYWORD BIT STRING INDEXES (RPL) */ 50127601 * /* */ 50128001 * /************************************************/ 50128401 * ELEMAPKP = '1'; /* INDEX FOR PRIME CODE */ 50128801 * %/************************************************/ 50129201 * /* */ 50129601 * /* IO KEYWORD BIT STRING INDEXES (RPL) */ 50130001 * /* */ 50140001 * /************************************************/ 50150001 * ELEMCOMP = '1'; /* INDEX FOR COMPLETE */ 50160001 * %/************************************************/ 51601001 * /* */ 51602001 * /* CRYPT KEYWORD BIT STRING INDEXES (RPL) */ 51603040 * /* */ 51603140 * /************************************************/ 51603240 * ELEMCCRY = '1'; /* INDEX FOR YES CODE */ 51603340 * %ELEMCCRN = '2'; /* INDEX FOR NO CODE */ 51603440 * %/************************************************/ 51603540 * /* */ 51603640 * /* ENCR KEYWORD BIT STRING INDEXES (NIB) */ 51603740 * /* */ 51603840 * /************************************************/ 51603940 * ELEMESEL = '1'; /* INDEX FOR SEL CODE */ 51604040 * %ELEMEREQ = '2'; /* INDEX FOR REQ CODE */ 51604140 * %ELEMENON = '3'; /* INDEX FOR NONE CODE */ 51604240 * %/************************************************/ 51604340 * /* */ 51604440 * /* PROC KEYWORD BIT STRING INDEXES (NIB) */ 51604540 * /* */ 51604640 * /************************************************/ 51605001 * ELEMPMSG = '1'; /* INDEX FOR MSG CODE */ 51606001 * %ELEMPTRA = '2'; /* INDEX FOR TRANS CODE */ 51607001 * %ELEMPCON = '3'; /* INDEX FOR CONT CODE */ 51608001 * %ELEMPBLK = '4'; /* INDEX FOR BLOCK CODE */ 51609001 * %ELEMPNLG = '5'; /* INDEX FOR NLGIN CODE */ 51610001 * %ELEMPLGI = '6'; /* INDEX FOR LGIN CODE */ 51611001 * %ELEMPLGO = '7'; /* INDEX FOR LGOUT CODE */ 51612001 * %ELEMPNLO = '8'; /* INDEX FOR NLGOUT CODE */ 51613001 * %ELEMPNCN = '9'; /* INDEX FOR NCONFTXT */ 51614001 * %ELEMPCFT = '10'; /* INDEX FOR CONFTXT CODE*/ 51615001 * %ELEMPTMF = '11'; /* INDEX FOR TMFLL CODE */ 51616001 * %ELEMPNTM = '12'; /* INDEX FOR NTMFLL CODE */ 51617001 * %ELEMPERP = '13'; /* INDEX FOR ERPIN CODE */ 51618001 * %ELEMPNER = '14'; /* INDEX FOR NERPIN CODE */ 51619001 * %ELEMPERO = '15'; /* INDEX FOR ERPOUT CODE */ 51620001 * %ELEMNPRO = '16'; /* INDEX FOR NERPOUT CODE*/ 51621001 * %ELEMPNMO = '17'; /* INDEX FOR NMONITOR */ 51622001 * %ELEMPMON = '18'; /* INDEX FOR MONITOR CODE*/ 51623001 * %ELEMPNEL = '19'; /* INDEX FOR NELC CODE */ 51624001 * %ELEMPELC = '20'; /* INDEX FOR ELC CODE */ 51625001 * %ELEMPNEI = '21'; /* INDEX FOR NEIB CODE */ 51626001 * %ELEMPEIB = '22'; /* INDEX FOR EIB CODE */ 51627001 * %ELEMPTIM = '23'; /* INDEX FOR TIMEOUT CODE*/ 51628001 * %ELEMPNTI = '24'; /* INDEX FOR NTIMEOUT */ 51629001 * %ELEMPNOR = '25'; /* INDEX FOR NORDRESP */ 51630040 * %ELEMPORD = '26'; /* INDEX FOR ORDRESP */ 51631040 * %ELEMPKEE = '27'; /* INDEX FOR KEEP CODE */ 51632001 * %ELEMPTRU = '28'; /* INDEX FOR TRUNC CODE */ 51633001 * %ELEMPNBI = '29'; /* INDEX FOR NBINARY CODE*/ 51634001 * %ELEMPBIN = '30'; /* INDEX FOR BINARY CODE */ 51635001 * %ELEMPNDF = '31'; /* INDEX FOR NDFASYX CODE*/ 51636001 * %ELEMPDFA = '32'; /* INDEX FOR DFASYX CODE */ 51637001 * %ELEMPNRS = '33'; /* INDEX FOR NRESPX CODE */ 51638001 * %ELEMPRES = '34'; /* INDEX FOR RESPX CODE */ 51639001 * %ELEMPRES = '35'; /* INDEX FOR CA CODE */ 51639401 * %ELEMPRES = '36'; /* INDEX FOR CS CODE */ 51639801 * %ELEMPRES = '37'; /* INDEX FOR RPLC CODE */ 51639901 * %ELEMPSYS = '38'; /* INDEX FOR SYSRESP */ 51640040 * %ELEMPAPP = '39'; /* INDEX FOR APPLRESP */ 51640340 * %/************************************************/ 51640640 * /* */ 51641001 * /* LISTEND KEYWORD BIT STRING INDEXES (NIB) */ 51642001 * /* */ 51643001 * /************************************************/ 51644001 * ELEMLYES = '1'; /* INDEX FOR YES CODE */ 51645001 * %ELEMLNO = '2'; /* INDEX FOR NO CODE */ 51646001 * %/************************************************/ 51647001 * /* */ 51648001 * /* SDT KEYWORD BIT STRING INDEXES (NIB) */ 51649001 * /* */ 51650001 * /************************************************/ 51651001 * ELEMSSYS = '1'; /* INDEX FOR SYSTEM CODE */ 51652001 * %ELEMSAPP = '2'; /* INDEX FOR APPL CODE */ 51653001 * %/************************************************/ 51654001 * /* */ 51655001 * /* CON KEYWORD BIT STRING INDEXES (NIB) */ 51656001 * /* */ 51657001 * /************************************************/ 51658001 * ELEMNYES = '1'; /* INDEX FOR YES CODE */ 51659001 * %ELEMNNO = '2'; /* INDEX FOR NO CODE */ 51660001 * 10 ELEMXFLG BIT(32)ELEMEND /* EXIT LIST ENTRY FLAGS */ 51900001 * %/****************************************************/ 52200001 * /* */ 52500001 * /* BIT STRING INDEXES FOR EXLST ENTRY FLAGS */ 52800001 * /* */ 53100001 * /****************************************************/ 53400001 * ELEMXA = '1'; /* ACTIVE CODE INDEX */ 53700001 * %ELEMXN = '2'; /* INACTIVE CODE INDEX */ 54000001 * %ELEMXL = '3'; /* LOAD CODE INDEX */ 54300001 * %ELEMXADR = '4'; /* EXIT ADDRESS SPECIFIED*/ 54600001 * %ELEMSLEN = '4'; /* LENGTH OF SHOWCB ELEM */ 54900001 * %ELEMNLEN = '8'; /* LENGTH OF NORMAL ELEM */ 55200001 * % /* LENGTH OF CHAR STRING */ 55500001 * ELEMLLEN = '12'; /* OR EXLST ELEMENT */ 55800001 * %GO TO ELEMPLS4; 56100001 .ELEMBAL AIF ('&DSECT' EQ 'YES').ELEM1 57000001 ELEM DS 0F ELEMENT ARGUMENT CONTROL ENTRY 57300001 AGO .ELEM2 57600001 .ELEM1 ANOP 57900001 ELEM DSECT ELEMENT ARGUMENT CONTROL ENTRY 58200001 .ELEM2 ANOP 58500001 ELEMKWTC DS H KEYWORD TYPE CODE 58800001 * ******************************** 59100001 * * * 59400001 * * ACB KEYWORD TYPE CODES * 59700001 * * * 60000001 * ******************************** 60300001 ELEMATRB EQU 1 ATRB 60600001 ELEMAVSP EQU 2 AVSPAC 60900001 ELEMACBL EQU 3 ACBLEN FOR VSAM ACB 61200001 ELEMBFND EQU 4 BUFND 61500001 ELEMBFNI EQU 5 BUFNI 61800001 ELEMBFNO EQU 6 BUFNO 62100001 ELEMBFSP EQU 7 BUFSP 62400001 ELEMCINV EQU 8 CINV 62700001 ELEMDDNM EQU 9 DDNAME 63000001 ELEMERBA EQU 10 ENDRBA 63300001 ELEMERR EQU 11 ERROR 63600001 ELEMXLST EQU 12 EXLST 63900001 ELEMFS EQU 13 FS 64200001 ELEMOMAR EQU 14 MAREA 64250001 ELEMOMLN EQU 15 MLEN 64300001 ELEMKELA EQU 16 KEYLEN 64500001 ELEMLRCL EQU 17 LRECL 64800001 ELEMMCRF EQU 18 MACRF 65100001 ELEMNCIS EQU 19 NCIS 65400001 ELEMNDLR EQU 20 NDELR 65700001 ELEMNXCP EQU 21 NEXCP 66000001 ELEMNEXT EQU 22 NEXT 66300001 ELEMNISR EQU 23 NINSR 66600001 ELEMNIXL EQU 24 NIXL 66900001 ELEMNLGR EQU 25 NLOGR 67200001 ELEMNRTR EQU 26 NRETR 67500001 ELEMNSSS EQU 27 NSSS 67800001 ELEMNUDR EQU 28 NUPDR 68100001 ELEMOFLG EQU 29 OFLAGS 68400001 ELEMPSWD EQU 30 PASSWD 68700001 ELEMRKP EQU 31 RKP 69000001 ELEMSTRN EQU 32 STRNO 69300001 ELEMOOBJ EQU 33 OPENOBJ 69350001 ELEMCTLG EQU 34 CATALOG 69600001 ELEMSTST EQU 35 STMST 69900001 ELEMBSTN EQU 36 BSTRNO 69910001 ELEMAXRK EQU 60 AIXRKP 69920001 ELEMACBV EQU 61 ACBLEN FOR VTAM ACB 69950001 ELEMAM EQU 64 AM 70000001 ELEMAPPL EQU 65 APPLID 70050001 ELEMCRA EQU 89 CRA 70100001 ELEMBFRF EQU 124 BFRFND 70150001 ELEMBFDS EQU 125 BUFRDS 70160001 ELEMNUIW EQU 126 NUIW 70170001 ELEMUIW EQU 127 UIW 70180001 ELEMSTMX EQU 128 STRMAX 70190001 ELEMUPTR EQU 140 USERPTR 70300001 ELEMJFCB EQU 141 JFCB 70350001 ELEMHRBA EQU 148 HI ALLOCATED RBA 70950040 * ******************************** 71150001 * * * 71200001 * * EXLST KEYWORD TYPE CODES * 71250001 * * * 71300001 * ******************************** 71400001 ELEMEDAD EQU 37 EODAD 71700001 ELEMJNAD EQU 39 JRNAD 72000001 ELEMLEAD EQU 40 LERAD 72300001 ELEMSYAD EQU 41 SYNAD 72600001 ELEMXLEN EQU 42 EXLLEN FOR VSAM EXLST 72610001 ELEMEXLV EQU 63 EXLLEN FOR VTAM EXLST 72650001 ELEMTPEN EQU 66 TPEND 72700001 ELEMLGON EQU 67 LOGON 72750001 ELEMLSTM EQU 68 LOSTERM 72800001 ELEMATTN EQU 69 ATTN 72850001 ELEMRLRQ EQU 70 RELRQ 72860001 ELEMSCIP EQU 120 SCIP 72890001 ELEMDFAS EQU 121 DFASY 72892001 ELEMERSP EQU 122 RESP 72894001 ELEMNSXT EQU 147 NSEXIT @ZA36992 73294040 * ******************************** 73810001 * * * 73820001 * * RPL KEYWORD TYPE CODES * 73830001 * * * 73840001 * ******************************** 74100001 ELEMACB EQU 43 ACB 74400001 ELEMAREA EQU 44 AREA 74700001 ELEMALEN EQU 45 AREALEN 75000001 ELEMARG EQU 46 ARG 75300001 ELEMECB EQU 47 ECB 75600001 ELEMKELR EQU 48 KEYLEN 75900001 ELEMMSGA EQU 49 MSGAREA 76200001 ELEMMSGL EQU 50 MSGLEN 76500001 ELEMNRPL EQU 51 NXTRPL 76800001 ELEMOPTC EQU 52 OPTCD 77100001 ELEMRECL EQU 53 RECLEN 77400001 ELEMIO EQU 54 IO 77700001 ELEMRPLL EQU 55 RPLLEN FOR VSAM RPL 78000001 ELEMFDBK EQU 56 FDBK 78300001 ELEMRBA EQU 57 RBA 78600001 ELEMAXPC EQU 58 AIXPC 78602001 ELEMAXFL EQU 59 AIXFLAG 78604001 ELEMRPLV EQU 62 RPLLEN FOR VTAM RPL 78610001 ELEMAALN EQU 73 AAREALN 78620001 ELEMARCL EQU 74 ARECLEN 78630001 ELEMEXIT EQU 75 EXIT 78650001 ELEMUSER EQU 78 USER 78751501 ELEMNIB EQU 79 NIB 78753001 ELEMAARE EQU 87 AAREA 78754501 ELEMBRCH EQU 88 BRANCH 78756001 ELEMDFLG EQU 93 DATAFLAG 78757501 ELEMRTNC EQU 94 RTNCD 78759001 ELEMTRNS EQU 95 TRANSID 78760501 ELEMFDB2 EQU 96 FDBK2 78762001 ELEMSENS EQU 97 SENSE 78763501 ELEMREQ EQU 98 REQ 78765001 ELEMFTNC EQU 99 FTNCD 78766501 ELEMCHNG EQU 101 CHNGDIR 78768001 ELEMSTYP EQU 102 STYPE 78769501 ELEMRTYP EQU 103 RTYPE 78771001 ELEMCHAI EQU 104 CHAIN 78772501 ELEMPOST EQU 105 POST 78774001 ELEMRESP EQU 106 RESPOND 78775501 ELEMCTRL EQU 107 CONTROL 78777001 ELEMOBSQ EQU 108 OBSQAC 78778501 ELEMIBSQ EQU 109 IBSQAC 78780001 ELEMOBSV EQU 110 OBSQVAL 78781501 ELEMIBSV EQU 111 IBSQVAL 78783001 ELEMSEQN EQU 112 SEQNO 78784501 ELEMSNEO EQU 113 SSENSEO 78786001 ELEMSNEI EQU 114 SSENSEI 78787501 ELEMUNEO EQU 115 USENSEO 78789001 ELEMUNEI EQU 116 USENSEI 78790501 ELEMBRCK EQU 133 BRACKET 78793501 ELEMSNMO EQU 134 SSENSMO 78795001 ELEMSNMI EQU 135 SSENSMI 78796501 ELEMSIGD EQU 136 SIGDATA 78798001 ELEMCDSL EQU 145 CODESEL 78810501 ELEMCRYP EQU 149 CRYPT 79410540 * ******************************** 80110001 * * * 80120001 * * NIB KEYWORD TYPE CODES * 80130001 * * * 80140001 * ******************************** 80150001 ELEMPROC EQU 80 PROC 80200001 ELEMNUSR EQU 81 USERFLD 80250001 ELEMLSTN EQU 82 LISTEND 80300001 ELEMNIBL EQU 83 NIBLEN 80350001 ELEMMODE EQU 84 MODE 80400001 ELEMCOND EQU 85 CONDN 80450001 ELEMDEVC EQU 86 DEVCHAR 80500001 ELEMCID EQU 90 CID 80550001 ELEMNAME EQU 91 NAME 80600001 ELEMCON EQU 92 CON 80650001 ELEMEXLT EQU 130 EXLST 80700001 ELEMRPLI EQU 131 RESPLIM 80750001 ELEMSDT EQU 132 SDT 80800001 ELEMLMOD EQU 142 LOGMODE 80810001 ELEMNDAR EQU 143 BNDAREA 80820001 ELEMENCR EQU 150 ENCRIPTION 80830040 * 80850001 ELEMBLEN DS H ELEMVAL LENGTH (WORDS-1) 80900001 ELEMCSTR DS 0CL8 CHARACTER STRING ENTRY 80950001 ELEMFIX DS 0F FIXED POINT ENTRY 81000001 ELEMPTR DS 0A POINTER ENTRY 81050001 * BITS DEFINITION CODE 81350040 BIT0 EQU 128 BIT POSITION 0 81354040 BIT1 EQU 64 BIT POSITION 1 81358040 BIT2 EQU 32 BIT POSITION 2 81362040 BIT3 EQU 16 BIT POSITION 3 81366040 BIT4 EQU 8 BIT POSITION 4 81370040 BIT5 EQU 4 BIT POSITION 5 81374040 BIT6 EQU 2 BIT POSITION 6 @ZA36992 81378040 BIT7 EQU 1 BIT POSITION 7 81382040 * 81386040 ELEMBST1 DS B BIT STRING ENTRY - BYTE 1 81400001 * ATRB KEYWORD BIT CODES 81450001 ELEMKSDS EQU BIT0 KSDS 81500001 ELEMESDS EQU BIT1 ESDS 81600001 ELEMWCK EQU BIT2 WCK 81900001 ELEMSSWD EQU BIT3 SSWD 82200001 ELEMREPL EQU BIT4 REPL 82500001 ELEMRRDS EQU BIT5 RRDS 82501501 ELEMSPAN EQU BIT6 SPAN 82503001 ELEMUNQ EQU BIT7 UNQ 82504501 * MACRF KEYWORD BIT CODES 82800001 ELEMMKEY EQU BIT0 KEY 83100001 ELEMMADR EQU BIT1 ADR 83400001 ELEMMCNV EQU BIT2 CNV 83700001 ELEMMSEQ EQU BIT3 SEQ 84000001 ELEMSKP EQU BIT4 SKP 84300001 ELEMMDIR EQU BIT5 DIR 84600001 ELEMIN EQU BIT6 IN 84900001 ELEMOUT EQU BIT7 OUT 85200001 * CRA KEYWORD BIT CODES 85201501 ELEMCSCR EQU BIT0 SCRA 85203001 ELEMCUCR EQU BIT1 UCRA 85204501 * OPENOBJ KEYWORD BIT CODES 85206001 ELEMOAIX EQU BIT0 AIX 85207501 ELEMOPAT EQU BIT1 PATH 85209001 ELEMOBAS EQU BIT2 BASE 85210501 * OFLAGS KEYWORD BIT CODES 85500001 ELEMOPEN EQU BIT0 OPEN 85800001 * AM KEYWORD BIT CODES 85850001 ELEMVSAM EQU BIT0 VSAM 85900001 ELEMVTAM EQU BIT1 VTAM 85950001 * CATALOG KEYWORD BIT CODES 86100001 ELEMCYES EQU BIT0 YES 86150040 ELEMCNO EQU BIT1 NO 86250040 * DATAFLAG KEYWORD BIT CODES 86701501 ELEMDUNS EQU BIT0 UNSOL 86703001 ELEMDEOB EQU BIT1 EOB 86704501 ELEMDEOM EQU BIT2 EOM 86706001 ELEMDEOT EQU BIT3 EOT 86707501 ELEMDLGF EQU BIT4 LOGOFF 86709001 ELEMDLG EQU BIT5 LG 86710501 ELEMDSOH EQU BIT6 SOH 86712001 * OPTCD KEYWORD BIT CODES 87000001 ELEMOKEY EQU BIT0 KEY 87300001 ELEMOADR EQU BIT1 ADR 87600001 ELEMOCNV EQU BIT2 CNV 87900001 ELEMOSEQ EQU BIT3 SEQ 88200001 ELEMODIR EQU BIT4 DIR 88500001 ELEMOSKP EQU BIT5 SKP 88800001 ELEMOSYN EQU BIT6 SYN 89100001 ELEMOASY EQU BIT7 ASY 89400001 * BRANCH KEYWORD BIT CODES 89401501 ELEMBYES EQU BIT0 YES 89403001 ELEMBNO EQU BIT1 NO 89404501 * CHNGDIR KEYWORD BIT CODES 89406001 ELEMCNCM EQU BIT0 NCMD 89407501 ELEMCCMD EQU BIT1 CMD 89409001 ELEMCNRQ EQU BIT2 NREQ 89410501 ELEMCREQ EQU BIT3 REQ 89412001 * CODESEL KEYWORD BIT CODES 89412501 ELEMCSTD EQU BIT0 STANDARD 89413001 ELEMCALT EQU BIT1 ALT 89413101 * STYPE KEYWORD BIT CODES 89413501 ELEMSREQ EQU BIT0 REQ 89415001 ELEMSRES EQU BIT1 RESP 89416501 * RTYPE KEYWORD BIT CODES 89418001 ELEMRNRS EQU BIT0 NRESP 89419501 ELEMRRSP EQU BIT1 RESP 89421001 ELEMRDFY EQU BIT2 DFSYN 89422501 ELEMRNDF EQU BIT3 NDFSYN 89424001 ELEMRNAS EQU BIT4 NDFASY 89425501 ELEMRDFA EQU BIT5 DFASY 89427001 * CHAIN KEYWORD BIT CODES 89431501 ELEMCFST EQU BIT0 FIRST 89433001 ELEMCMID EQU BIT1 MIDDLE 89434501 ELEMCLST EQU BIT2 LAST 89436001 ELEMCONL EQU BIT3 ONLY 89437501 * POST KEYWORD BIT CODES 89439001 ELEMPRSP EQU BIT0 RESP 89440501 ELEMPSCH EQU BIT1 SCHED 89442001 * RESPOND KEYWORD BIT CODES 89443501 ELEMRNEX EQU BIT0 NEX 89445001 ELEMREX EQU BIT1 EX 89446501 ELEMRFME EQU BIT2 FME 89448001 ELEMRNFM EQU BIT3 NFME 89449501 ELEMRNRR EQU BIT4 NRRN 89451001 ELEMRRRN EQU BIT5 RRN 89452501 ELEMRQRE EQU BIT6 QRESP 89453040 ELEMRNQR EQU BIT7 NQRESP 89453540 * CONTROL KWD BIT CODES (VTAM) 89454001 ELEMCDAT EQU BIT0 DATA 89455501 ELEMCCAN EQU BIT1 CANCEL 89457001 ELEMCQC EQU BIT2 QC 89458501 ELEMCQEC EQU BIT3 QEC 89460001 ELEMCCHA EQU BIT4 CHASE 89461501 ELEMCREL EQU BIT5 RELQ 89463001 ELEMCBID EQU BIT6 BID 89464501 ELEMCRTR EQU BIT7 RTR 89466001 * OBSQAC KEYWORD BIT CODES 89467501 ELEMOSET EQU BIT0 SET 89469001 ELEMOTST EQU BIT1 TESTSET 89470501 ELEMORES EQU BIT2 RESET 89472001 ELEMOIGN EQU BIT3 IGNORE 89473501 ELEMOTPO EQU BIT4 TESTPOS 89475001 ELEMOTNE EQU BIT5 TESTNEG 89476501 ELEMOINV EQU BIT6 INVALID 89478001 * IBSQAC KEYWORD BIT CODES 89479501 ELEMISET EQU BIT0 SET 89481001 ELEMITST EQU BIT1 TESTSET 89482501 ELEMIRES EQU BIT2 RESET 89484001 ELEMIIGN EQU BIT3 IGNORE 89485501 ELEMITPO EQU BIT4 TESTPOS 89487001 ELEMITNE EQU BIT5 TESTNEG 89488501 ELEMIINV EQU BIT6 INVALID 89490001 * SSENSEO KEYWORD BIT CODES 89491501 ELEMOCPM EQU BIT0 CPM 89493001 ELEMOSTA EQU BIT1 STATE 89494501 ELEMOFI EQU BIT2 FI 89496001 ELEMORR EQU BIT3 RR 89497501 * SSENSEI KEYWORD BIT CODES 89499001 ELEMIPAT EQU BIT0 PATH 89500501 ELEMICPM EQU BIT1 CPM 89502001 ELEMISTA EQU BIT2 STATE 89503501 ELEMIFI EQU BIT3 FI 89505001 ELEMIRR EQU BIT4 RR 89506501 * AIXFLAG KEYWORD BIT CODES 89512501 ELEMAPKP EQU BIT0 PRIME 89517001 * IO KEYWORD BIT CODES 89700001 ELEMCOMP EQU BIT0 COMPLETE 89750001 * PROC KEYWORD BIT CODES 90001501 ELEMPMSG EQU BIT0 MSG 90003001 ELEMPTRA EQU BIT1 TRANS 90004501 ELEMPCON EQU BIT2 CONT 90006001 ELEMPBLK EQU BIT3 BLK 90007501 ELEMPNLG EQU BIT4 NLGIN 90009001 ELEMPLGI EQU BIT5 LGIN 90010501 ELEMPLGO EQU BIT6 LOGOUT 90012001 ELEMPNLO EQU BIT7 NLOGOUT 90013501 * LISTEND KEYWORD BIT CODES 90015001 ELEMLYES EQU BIT0 YES 90016501 ELEMLNO EQU BIT1 NO 90018001 * SDT KEYWORD BIT CODES 90019501 ELEMSSYS EQU BIT0 SYSTEM 90021001 ELEMSAPP EQU BIT1 APPL 90022501 * CON KEYWORD BIT CODES 90024001 ELEMNYES EQU BIT0 YES 90025501 ELEMNNO EQU BIT1 NO 90027001 * CRYPT KEYWORD BIT CODES 90057040 ELEMCCRY EQU BIT0 YES 90087040 ELEMCCRN EQU BIT1 NO 90117040 * ENCRIPTION KEYWORD BIT CODES 90147040 ELEMESEL EQU BIT0 SEL 90177040 ELEMEREQ EQU BIT1 REQD 90207040 ELEMENON EQU BIT2 NONE 90237040 ELEMBST2 DS B BIT STRING ENTRY - BYTE 2 90300001 * MACRF KEYWORD BIT CODES 90600001 ELEMMNUB EQU BIT0 NUB 90900001 ELEMUBF EQU BIT1 UBF 91200001 ELEMLOGN EQU BIT2 LOGON 91205001 ELEMNLGN EQU BIT3 NLOGON 91210001 ELEMDDN EQU BIT5 DDN 91220001 ELEMDSN EQU BIT6 DSN 91225001 ELEMNRM EQU BIT7 NRM 91230001 * OPTCD KEYWORD BIT CODES 91500001 ELEMONUP EQU BIT0 NUP 91800001 ELEMOUPD EQU BIT1 UPD 92100001 ELEMONSP EQU BIT2 NSP 92400001 ELEMOKEQ EQU BIT3 KEQ 92700001 ELEMOKGE EQU BIT4 KGE 93000001 ELEMOFKS EQU BIT5 FKS 93300001 ELEMOGEN EQU BIT6 GEN 93600001 ELEMOMVE EQU BIT7 MVE 93900001 * CONTROL KEYWORD BIT CODES 93905001 ELEMCLUS EQU BIT0 LUS 93910001 ELEMCSIG EQU BIT1 SIGNAL 93915001 ELEMCSDT EQU BIT2 SDT 93920001 ELEMCCLR EQU BIT3 CLEAR 93925001 ELEMCSTS EQU BIT4 STSN 93930001 ELEMCSHU EQU BIT5 SHUTD 93935001 ELEMCRQR EQU BIT6 RQR 93940001 ELEMCRSH EQU BIT7 RSHUTD 93945001 * PROC KEYWORD BIT CODES 93950001 ELEMPNCN EQU BIT0 NCONFTXT 93955001 ELEMPCFT EQU BIT1 CONFTXT 93960001 ELEMPTMF EQU BIT2 TMFLL 93965001 ELEMPNTM EQU BIT3 NTMFLL 93970001 ELEMPERP EQU BIT4 ERPIN 93975001 ELEMPNER EQU BIT5 NERPIN 93980001 ELEMPERO EQU BIT6 ERPOUT 93985001 ELEMNPRO EQU BIT7 NERPOUT 93990001 ELEMBST3 DS B BIT STRING ENTRY - BYTE 3 94200001 * MACRF KEYWORD BIT CODES 94205001 ELEMAIX EQU BIT0 AIX 94210001 ELEMNSR EQU BIT1 NSR 94215001 ELEMLSR EQU BIT2 LSR 94220001 ELEMGSR EQU BIT3 GSR 94225001 ELEMNCI EQU BIT4 NCI 94230001 ELEMICI EQU BIT5 ICI 94235001 ELEMNDF EQU BIT6 NDF 94240001 ELEMDFR EQU BIT7 DFR 94245001 * OPTCD KEYWORD BIT CODES 94500001 ELEMOLOC EQU BIT0 LOC 94800001 ELEMOFWD EQU BIT1 FWD 94805001 ELEMOBWD EQU BIT2 BWD 94810001 ELEMOARD EQU BIT3 ARD 94815001 ELEMOLRD EQU BIT4 LRD 94820001 * CONTROL KEYWORD BIT CODES 94822040 ELEMCSHC EQU BIT0 SHUTC 94823040 ELEMBIND EQU BIT1 BIND 94823440 ELEMUNBD EQU BIT2 UNBIND 94823840 ELEMSBI EQU BIT3 SBI 94824240 ELEMBIS EQU BIT4 BIS 94824640 * PROC KEYWORD BIT CODES 94825001 ELEMPNMO EQU BIT0 NMONITOR 94826001 ELEMPMON EQU BIT1 MONITOR 94827001 ELEMPNEL EQU BIT2 NELC 94828001 ELEMPELC EQU BIT3 ELC 94829001 ELEMPNEI EQU BIT4 NEIB 94830001 ELEMPEIB EQU BIT5 EIB 94831001 ELEMPTIM EQU BIT6 TIMEOUT 94832001 ELEMPNTI EQU BIT7 NTIMEOUT 94833001 ELEMBST4 DS B BIT STRING ENTRY BYTE 4 94834001 * MACRF KEYWORD BIT CODES 94835001 ELEMNIS EQU BIT0 NIS 94836001 ELEMSIS EQU BIT1 SIS 94837001 ELEMNFX EQU BIT2 NFX 94838001 ELEMCFX EQU BIT3 CFX 94839001 ELEMRST EQU BIT4 RST 94839201 ELEMNRS EQU BIT5 NRS 94839401 * PROC KEYWORD BIT CODES 94840001 ELEMPNOR EQU BIT0 NORDRESP 94841040 ELEMPORD EQU BIT1 ORDRESP 94842040 ELEMPKEE EQU BIT2 KEEP 94843001 ELEMPTRU EQU BIT3 TRUNC 94844001 ELEMPNBI EQU BIT4 NBINARY 94845001 ELEMPBIN EQU BIT5 BINARY 94846001 ELEMPNDF EQU BIT6 NDFASYX 94847001 ELEMPDFA EQU BIT7 DFASYX 94848001 ELEMBST5 DS 0B BIT STRING ENTRY BYTE 5 94849001 * OPTCD KEYWORD BIT CODES 94850001 ELEMOCA EQU BIT0 CA 94851001 ELEMOCS EQU BIT1 CS 94852001 ELEMOREL EQU BIT4 RELEASE 94855001 ELEMOPAS EQU BIT5 PASS 94856001 ELEMONER EQU BIT6 NERASE 94857001 ELEMOEAU EQU BIT7 EAU 94858001 * PROC KEYWORD BIT CODES 94859001 ELEMPNRS EQU BIT0 NRESPX 94860001 ELEMPRES EQU BIT1 RESPX 94861001 ELEMPCA EQU BIT2 CA 94861401 ELEMPCS EQU BIT3 CS 94861801 ELEMPRPL EQU BIT4 RPLC 94861901 ELEMPSYS EQU BIT5 SYSRESP 94862040 ELEMPAPP EQU BIT6 APPLRESP 94862340 ELEMBST6 DS 0B BIT STRING ENTRY BYTE 6 94862640 * OPTCD KEYWORD BIT CODES 94863001 ELEMOERA EQU BIT0 ERASE 94864001 ELEMOSPC EQU BIT1 SPEC 94865001 ELEMOANY EQU BIT2 ANY 94866001 ELEMONCN EQU BIT3 NCONV 94867001 ELEMOCON EQU BIT4 CONV 94868001 ELEMOLBT EQU BIT5 LBT 94869001 ELEMOLBM EQU BIT6 LBM 94870001 ELEMOBLK EQU BIT7 BLK 94871001 ELEMBST7 DS 0B BIT STRING ENTRY BYTE 7 94872001 * OPTCD KEYWORD BIT CODES 94873001 ELEMOCND EQU BIT0 COND 94874001 ELEMOUNC EQU BIT1 UNCOND 94875001 ELEMOLCK EQU BIT2 LOCK 94876001 ELEMOLMS EQU BIT5 LOGONMSG 94877001 ELEMODVC EQU BIT6 DEVCHAR 94878001 ELEMOTER EQU BIT7 TERMS 94879001 ELEMBST8 DS 0B BIT STRING ENTRY BYTE 8 94880001 * OPTCD KEYWORD BIT CODES 94881001 ELEMOAPS EQU BIT0 APPSTAT 94882001 ELEMOCTS EQU BIT1 COUNTS 94883001 ELEMORNN EQU BIT2 RNNAME 94884001 ELEMOCIX EQU BIT3 CIDXLATE 94885001 ELEMOTLG EQU BIT4 TOPLOGON 94886001 ELEMOBSC EQU BIT5 BSCID 94887001 ELEMODIS EQU BIT6 DISPLAY 94888001 ELEMORLQ EQU BIT7 RELRQ 94889001 ELEMBST9 DS 0B BIT STRING ENTRY BYTE 9 94890001 * OPTCD KEYWORD BIT CODES 94891001 ELEMONRQ EQU BIT0 NRELRQ 94892001 ELEMOQ EQU BIT1 Q 94893001 ELEMONQ EQU BIT2 NQ 94894001 ELEMOPND EQU BIT3 PEND 94895001 ELEMOSES EQU BIT4 SESSION 94896001 ELEMOACT EQU BIT5 ACTIVE 94897001 ELEMOUCD EQU BIT6 UNCONDL 94898001 ELEMOQUI EQU BIT7 QUIESCE 94899001 ELEMBSTA DS 0B BIT STRING ENTRY BYTE 10 94900001 * OPTCD KEYWORD BIT CODES 94901001 ELEMOSTR EQU BIT0 START 94902001 ELEMOSTP EQU BIT1 STOP 94903001 ELEMOACC EQU BIT2 ACCEPT 94904001 ELEMOACQ EQU BIT3 ACQUIRE 94905001 ELEMOCAL EQU BIT5 CONALL 94907001 ELEMOCAN EQU BIT6 CONANY 94908001 ELEMBSTB DS 0B BIT STRING ENTRY BYTE 11 94910001 * OPTCD KEYWORD BIT CODES 94911001 ELEMOKEE EQU BIT1 KEEP 94913001 ELEMOTRN EQU BIT2 TRUNC 94914001 ELEMONBT EQU BIT3 NIBTK 94915001 ELEMOFMH EQU BIT7 FMHDR 94919001 ELEMBSTC DS 0B BIT STRING ENTRY BYTE 12 94920001 * OPTCD KEYWORD BIT CODES 94921001 ELEMONFM EQU BIT0 NFMHDR 94922001 ELEMOSPM EQU BIT1 SESSPARM 94932001 ELEMOSEK EQU BIT2 SESSKEY 95012040 ELEMXFLG DS B EXIT LIST ENTRY FLAGS 95400001 ELEMXA EQU BIT0 ACTIVE 95700001 ELEMXN EQU BIT1 INACTIVE 96000001 ELEMXL EQU BIT2 LOAD ROUTINE 96300001 ELEMXADR EQU BIT3 EXIT ADDRESS SPECIFIED 96600001 DS XL3 RESERVED 96900001 ELEMSLEN EQU 4 LENGTH OF SHOWCB ELEMENT ACE 97200001 ELEMNLEN EQU 8 LENGTH OF NORMAL ELEMENT ACE 97500001 ELEMLLEN EQU 12 LENGTH OF CHARACTER STRING OR 97800001 * EXLST ELEMENT ACE 98100001 MEND 98400001 *%ELEMPLS4 :; 98700001