MACRO 00050000 ISTCBOPT &OPTCD=,&AM=,&MF=,&CALLER= @ZA34940 00100000 .* @ZA34940 00150000 .* CHANGE LEVEL = 0 @ZA34940 00200000 .* DATE OF LAST CHANGE = 15 DEC 78 ( 78*348 ) @ZA34940 00250000 .* @ZA34940 00300000 .* FUNCTION - THIS MACRO PROCESSES THE RPL KEYWORD OPTCD. @ZA34940 00350000 .* IT IS CALLED BY THE RPL DECLARATIVE MACRO @ZA34940 00400000 .* VIA IDAVSRPL. IT VALIDITY CHECKS THE OPTIONS @ZA34940 00450000 .* SPECIFIED FOR OPTCD, CHECKS FOR MUTUALLY @ZA34940 00500000 .* EXCLUSIVE OPTIONS SPECIFIED AND @XA23044 00550000 .* ISSUES ERROR MESSAGES VIA ISTERMAC. @ZA34940 00600000 .* IF THE OPTIONS ARE VALID, ISTCBOPT @ZA34940 00650000 .* SETS VALUES IN VARIOUS GLOBAL ARRAYS. @ZA34940 00700000 .* DIFFERENT GLOBALS ARE SET THAN THASE USED BY THE CBMM. 00750000 .* THEREFORE, THE BITS SET IN THESE GLOBALS MUST BE 00800000 .* IDENTICAL TO THE WAY THEY WILL APPEAR WHEN THE 00850000 .* CONTROL BLOCK IS GENERATED. 00900000 .* 00950000 .* 01000000 .* 01050000 .* CHANGE ACTIVITY 01100000 .* SESSPARM MUTUALLY EXCLUSIVE WITH LOGONMSG DEFAULT @ZA07555 01150000 .* CBMM SPLIT SUPPORT @ZA34940 01200000 .* 01250000 .* GLOBALS 01300000 GBLB &IDACB01 ERROR INDICATOR 01350000 GBLA &IDAENO NUMBER OF ELEMENTS 01400000 GBLC &IDAVALC(50) ELEMENT CHARACTER VALUE ARRAY 01450000 GBLA &IDAELEN(50) ELEMENT FIELD LENGTH ARRAY 01500000 GBLC &IDAOPT2,&IDAOPT3 BIT STRING EXTENSIONS 01550000 .* THE FOLLOWING GLOBALS ARE USED TO PASS THE VALUES OF 01600000 .* THE OPTCD BYTES BACK TO THE DECLARATIVE MACRO RPL. 01650000 GBLC &IDAOP1,&IDAOP2,&IDAOP5,&IDAOP6,&IDAOP7,&IDAOP8 X04SVHS 01700000 GBLC &IDAOP9,&IDAOPA,&IDAOPB,&IDAOPC 01750000 .* LOCALS 01800000 LCLA &I,&A,&B,&C,&D,&ERR WORK VARIABLES X04SVHS 01850000 LCLB &KEY,&ADR,&CNV,&SEQ,&DIR,&SKP OPTCD CODES 01900000 LCLB &SYN,&ASY,&NUP,&UPD,&NSP,&KEQ OPTCD CODES 01950000 LCLB &KGE,&FKS,&GEN,&MVE,&LOC OPTCD CODES 02000000 LCLB &CA,&CS,&RELEASE,&PASS OPTCD CODES @Z40BHUC 02050000 LCLB &WAITX,&NWAITX OPTCD CODES @ZA07549 02100000 LCLB &NERASE,&EAU,&ERASE,&SPEC,&ANY OPTCD CODES X03004 02150000 LCLB &NCONV,&CONV,&LBT,&BLK,&COND OPTCD CODES X03004 02200000 LCLB &UNCOND,&LOCK,&LGONMSG,&DEVCHAR OPTCD CODES X03004 02250000 LCLB &TERMS,&APPSTAT,&COUNTS,&RNNAME OPTCD CODES X03004 02300000 LCLB &CIDXLAT,&TOPLGON,&BSCID,&LBM OPTCD CODES X03004 02350000 LCLB &DISPLAY,&RELRQ,&NRELRQ,&Q,&NQ OPTCD CODES X03004 02400000 LCLB &PEND,&SESSION,&ACTIVE,&UNCONDL OPTCD CODES X03004 02450000 LCLB &QUIESCE,&START,&STOP,&ACCEPT OPTCD CODES X03004 02500000 LCLB &ACQUIRE,&CONALL,&CONANY OPTCD CODES @Z40BHUC 02550000 LCLB &KEEP,&TRUNC OPTCD CODES @Z40BHUC 02600000 LCLB &NIBTK OPTCD CODES @Z40BHUC 02650000 LCLB &FMHDR,&NFMHDR OPTCD CODE X03004HS 02700000 LCLB &FWD,&BWD,&ARD,&LRD OPTCD CODES X04SVHS 02750000 LCLB &SESSPRM OPTCD CODE @Z40BHUC 02800000 LCLB &SESSKEY OPTCD CODE @G40AKSL 02850000 .* 02900000 AIF ('&OPTCD' EQ '').T010100 CHECK FOR NULL PARAM X04SVHS 02950000 AIF ('&CALLER' EQ 'RPL').T000100 X04SVHS 03000000 .* IF CALLED BY RPL DECLARATIVE, @ZA34940 03050000 .* BYPASS CALL OF ISTCB3 @ZA34940 03100000 ISTCB3 ARG=&OPTCD,ARGNAME=OPTCD,KWTC=X'34',MF=&MF, @ZA34940*03150000 BIT=YES,INDRECT=YES @ZA34940 03200000 &IDAELEN(&IDAENO) SETA 12 X04SVHS 03250000 AIF ('&OPTCD(1)' EQ '*').T011600 X04SVHS 03300000 .T000100 ANOP 03350000 &I SETA &I+1 BUMP INDEX VARIABLE 03400000 AIF (&I GT N'&OPTCD).T000300 HAVE ALL OPTIONS BEEN CHECKED 03450000 &KEY SETB ('&OPTCD(&I)' EQ 'KEY' OR &KEY) 03500000 &ADR SETB ('&OPTCD(&I)' EQ 'ADR' OR &ADR) 03550000 &CNV SETB ('&OPTCD(&I)' EQ 'CNV' OR &CNV) 03600000 &SEQ SETB ('&OPTCD(&I)' EQ 'SEQ' OR &SEQ) 03650000 &DIR SETB ('&OPTCD(&I)' EQ 'DIR' OR &DIR) 03700000 &SKP SETB ('&OPTCD(&I)' EQ 'SKP' OR &SKP) 03750000 &SYN SETB ('&OPTCD(&I)' EQ 'SYN' OR &SYN) 03800000 &ASY SETB ('&OPTCD(&I)' EQ 'ASY' OR &ASY) 03850000 &NUP SETB ('&OPTCD(&I)' EQ 'NUP' OR &NUP) 03900000 &UPD SETB ('&OPTCD(&I)' EQ 'UPD' OR &UPD) 03950000 &NSP SETB ('&OPTCD(&I)' EQ 'NSP' OR &NSP) 04000000 &KEQ SETB ('&OPTCD(&I)' EQ 'KEQ' OR &KEQ) 04050000 &KGE SETB ('&OPTCD(&I)' EQ 'KGE' OR &KGE) 04100000 &FKS SETB ('&OPTCD(&I)' EQ 'FKS' OR &FKS) 04150000 &GEN SETB ('&OPTCD(&I)' EQ 'GEN' OR &GEN) 04200000 &MVE SETB ('&OPTCD(&I)' EQ 'MVE' OR &MVE) 04250000 &LOC SETB ('&OPTCD(&I)' EQ 'LOC' OR &LOC) 04300000 &FWD SETB ('&OPTCD(&I)' EQ 'FWD' OR &FWD) X04SVHS 04350000 &BWD SETB ('&OPTCD(&I)' EQ 'BWD' OR &BWD) X04SVHS 04400000 &ARD SETB ('&OPTCD(&I)' EQ 'ARD' OR &ARD) X04SVHS 04450000 &LRD SETB ('&OPTCD(&I)' EQ 'LRD' OR &LRD) X04SVHS 04500000 &WAITX SETB ('&OPTCD(&I)' EQ 'WAITX' OR &WAITX) @ZA07549 04550000 &NWAITX SETB ('&OPTCD(&I)' EQ 'NWAITX' OR &NWAITX) @ZA07549 04600000 &A SETA &KEY+&ADR+&CNV+&SEQ+&DIR+&SKP+&SYN+&ASY+&NUP+&UPD+&NSP+&*04650000 KEQ+&KGE+&FKS+&GEN+&MVE+&LOC+&FWD+&BWD+&ARD+&LRD+&WAITX+*04700000 &NWAITX @ZA07549 04750000 .* &A CONTAINS THE NUMBER OF VSAM OPTIONS SPECIFIED 04800000 .* &B, &C, AND &D CONTAIN THE NUMBER OF VTAM OPTIONS SPEC 04850000 .* &ERR CONTAINS THE NUMBER OF ERRORS 04900000 AIF (&A+&B+&C+&D+&ERR EQ &I).T000100 04950000 .* IF &A+&B+&C+&D+&ERR EQUAL &I, THE LAST OPTION CHECKED 05000000 .* WAS A VALID VSAM OPTION. ELSE CHECK FOR A VALID VTAM 05050000 .* OPTION 05100000 &CA SETB ('&OPTCD(&I)' EQ 'CA' OR &CA) X03004 05150000 &CS SETB ('&OPTCD(&I)' EQ 'CS' OR &CS) X03004 05200000 &RELEASE SETB ('&OPTCD(&I)' EQ 'RELEASE' OR &RELEASE) X03004 05250000 &PASS SETB ('&OPTCD(&I)' EQ 'PASS' OR &PASS) X03004 05300000 &NERASE SETB ('&OPTCD(&I)' EQ 'NERASE' OR &NERASE) X03004 05350000 &EAU SETB ('&OPTCD(&I)' EQ 'EAU' OR &EAU) X03004 05400000 &ERASE SETB ('&OPTCD(&I)' EQ 'ERASE' OR &ERASE) X03004 05450000 &SPEC SETB ('&OPTCD(&I)' EQ 'SPEC' OR &SPEC) X03004 05500000 &ANY SETB ('&OPTCD(&I)' EQ 'ANY' OR &ANY) X03004 05550000 &NCONV SETB ('&OPTCD(&I)' EQ 'NCONV' OR &NCONV) X03004 05600000 &CONV SETB ('&OPTCD(&I)' EQ 'CONV' OR &CONV) X03004 05650000 &LBT SETB ('&OPTCD(&I)' EQ 'LBT' OR &LBT) X03004 05700000 &LBM SETB ('&OPTCD(&I)' EQ 'LBM' OR &LBM) X03004 05750000 &BLK SETB ('&OPTCD(&I)' EQ 'BLK' OR &BLK) X03004 05800000 &COND SETB ('&OPTCD(&I)' EQ 'COND' OR &COND) X03004 05850000 &UNCOND SETB ('&OPTCD(&I)' EQ 'UNCOND' OR &UNCOND) X03004 05900000 &LOCK SETB ('&OPTCD(&I)' EQ 'LOCK' OR &LOCK) X03004 05950000 &LGONMSG SETB ('&OPTCD(&I)' EQ 'LOGONMSG' OR &LGONMSG) X03004 06000000 &DEVCHAR SETB ('&OPTCD(&I)' EQ 'DEVCHAR' OR &DEVCHAR) X03004 06050000 &TERMS SETB ('&OPTCD(&I)' EQ 'TERMS' OR &TERMS) X03004 06100000 &APPSTAT SETB ('&OPTCD(&I)' EQ 'APPSTAT' OR &APPSTAT) X03004 06150000 &COUNTS SETB ('&OPTCD(&I)' EQ 'COUNTS' OR &COUNTS) X03004 06200000 &RNNAME SETB ('&OPTCD(&I)' EQ 'RNNAME' OR &RNNAME) X03004 06250000 &CIDXLAT SETB ('&OPTCD(&I)' EQ 'CIDXLATE' OR &CIDXLAT) X03004 06300000 &TOPLGON SETB ('&OPTCD(&I)' EQ 'TOPLOGON' OR &TOPLGON) X03004 06350000 &BSCID SETB ('&OPTCD(&I)' EQ 'BSCID' OR &BSCID) X03004 06400000 &DISPLAY SETB ('&OPTCD(&I)' EQ 'DISPLAY' OR &DISPLAY) X03004 06450000 &RELRQ SETB ('&OPTCD(&I)' EQ 'RELRQ' OR &RELRQ) X03004 06500000 &NRELRQ SETB ('&OPTCD(&I)' EQ 'NRELRQ' OR &NRELRQ) X03004 06550000 &Q SETB ('&OPTCD(&I)' EQ 'Q' OR &Q) X03004 06600000 &NQ SETB ('&OPTCD(&I)' EQ 'NQ' OR &NQ) X03004 06650000 &PEND SETB ('&OPTCD(&I)' EQ 'PEND' OR &PEND) X03004 06700000 &SESSION SETB ('&OPTCD(&I)' EQ 'SESSION' OR &SESSION) X03004 06750000 &ACTIVE SETB ('&OPTCD(&I)' EQ 'ACTIVE' OR &ACTIVE) X03004 06800000 &UNCONDL SETB ('&OPTCD(&I)' EQ 'UNCONDL' OR &UNCONDL) X03004 06850000 &QUIESCE SETB ('&OPTCD(&I)' EQ 'QUIESCE' OR &QUIESCE) X03004 06900000 &START SETB ('&OPTCD(&I)' EQ 'START' OR &START) X03004 06950000 &STOP SETB ('&OPTCD(&I)' EQ 'STOP' OR &STOP) X03004 07000000 &ACCEPT SETB ('&OPTCD(&I)' EQ 'ACCEPT' OR &ACCEPT) X03004 07050000 &ACQUIRE SETB ('&OPTCD(&I)' EQ 'ACQUIRE' OR &ACQUIRE) X03004 07100000 &CONALL SETB ('&OPTCD(&I)' EQ 'CONALL' OR &CONALL) X03004 07150000 &CONANY SETB ('&OPTCD(&I)' EQ 'CONANY' OR &CONANY) X03004 07200000 &KEEP SETB ('&OPTCD(&I)' EQ 'KEEP' OR &KEEP) X3004BS 07250000 &TRUNC SETB ('&OPTCD(&I)' EQ 'TRUNC' OR &TRUNC) X3004BS 07300000 &NIBTK SETB ('&OPTCD(&I)' EQ 'NIBTK' OR &NIBTK) X3004BS 07350000 &FMHDR SETB ('&OPTCD(&I)' EQ 'FMHDR' OR &FMHDR) X03004HS 07400000 &NFMHDR SETB ('&OPTCD(&I)' EQ 'NFMHDR' OR &NFMHDR) X03004HS 07450000 &SESSPRM SETB ('&OPTCD(&I)' EQ 'SESSPARM' OR &SESSPRM) @Z40BHUC 07500000 &SESSKEY SETB ('&OPTCD(&I)' EQ 'SESSKEY' OR &SESSKEY) @G40AKSL 07550000 &B SETA &CA+&CS+&RELEASE+&PASS+&NERASE+&EAU+&ERASE+&SPEC+&ANY+&N*07600000 CONV+&CONV+&LBT+&LBM+&BLK+&COND+&UNCOND+&LOCK+&LGONMSG+&*07650000 DEVCHAR+&TERMS+&APPSTAT+&COUNTS+&RNNAME+&CIDXLAT 07700000 &C SETA &TOPLGON+&BSCID+&DISPLAY+&RELRQ+&NRELRQ+&Q+&NQ+&PEND+&SE*07750000 SSION+&ACTIVE+&UNCONDL+&QUIESCE+&START+&STOP+&ACCEPT+&AC*07800000 QUIRE+&CONALL+&CONANY+&KEEP 07850000 &D SETA &TRUNC+&NIBTK+&FMHDR+&NFMHDR+&SESSPRM+&SESSKEY 07900000 .* @G40AKSL 07950000 .* &A CONTAINS THE NUMBER OF VSAM OPTIONS SPECIFIED 08000000 .* &B, &C, AND &D CONTAIN THE NUMBER OF VTAM OPTIONS SPEC 08050000 .* &ERR CONTAINS THE NUMBER OF ERRORS 08100000 AIF (&A+&B+&C+&D+&ERR EQ &I).T000200 08150000 .* IF &A+&B+&C+&D+&ERR EQUAL &I, THE LAST OPTION CHECKED 08200000 .* WAS A VALID VTAM OPTION. ELSE IT WAS INVALID OR 08250000 .* DUPLICATED A PREVIOUSLY SPECIFIED OPTION. 08300000 ISTERMAC 5,OPTCD,&OPTCD(&I) @ZA34940 08350000 &IDACB01 SETB 1 08400000 &ERR SETA &ERR+1 BUMP ERROR COUNT X04SVHS 08450000 AGO .T000100 08500000 .T000200 AIF ('&AM' EQ 'VTAM').T000100 08550000 ISTERMAC 20,&OPTCD(&I),OPTCD @ZA34940 08600000 &IDACB01 SETB 1 X03004 08650000 AGO .T000100 08700000 .********************************************************************** 08750000 .* 08800000 .* THE FOLLOWING CODE CHECKS FOR MUTUALLY EXCLUSIVE OPTIONS 08850000 .* IF THEY EXIST, AN ERROR MSG IS ISSUED 08900000 .* 08950000 .T000300 AIF (NOT(&KEY AND &ADR)).T000400 09000000 ISTERMAC 8,OPTCD,KEY,ADR @ZA34940 09050000 &IDACB01 SETB 1 09100000 .T000400 AIF (NOT(&KEY AND &CNV)).T000500 09150000 ISTERMAC 8,OPTCD,KEY,CNV @ZA34940 09200000 &IDACB01 SETB 1 09250000 .T000500 AIF (NOT(&ADR AND &CNV)).T000600 09300000 ISTERMAC 8,OPTCD,ADR,CNV @ZA34940 09350000 &IDACB01 SETB 1 09400000 .T000600 AIF (NOT(&SEQ AND &DIR)).T000700 09450000 ISTERMAC 8,OPTCD,SEQ,DIR @ZA34940 09500000 &IDACB01 SETB 1 09550000 .T000700 AIF (NOT(&SEQ AND &SKP)).T000800 09600000 ISTERMAC 8,OPTCD,SEQ,SKP @ZA34940 09650000 &IDACB01 SETB 1 09700000 .T000800 AIF (NOT(&DIR AND &SKP)).T000900 09750000 ISTERMAC 8,OPTCD,DIR,SKP @ZA34940 09800000 &IDACB01 SETB 1 09850000 .T000900 AIF (NOT(&SYN AND &ASY)).T001000 09900000 ISTERMAC 8,OPTCD,SYN,ASY @ZA34940 09950000 &IDACB01 SETB 1 10000000 .T001000 AIF (NOT(&NUP AND &UPD)).T001100 10050000 ISTERMAC 8,OPTCD,NUP,UPD @ZA34940 10100000 &IDACB01 SETB 1 10150000 .T001100 AIF (NOT(&NUP AND &NSP)).T001150 10200000 ISTERMAC 8,OPTCD,NUP,NSP @ZA34940 10250000 &IDACB01 SETB 1 10300000 .T001150 AIF (NOT(&UPD AND &NSP)).T001200 10350000 ISTERMAC 8,OPTCD,UPD,NSP @ZA34940 10400000 &IDACB01 SETB 1 10450000 .T001200 AIF (NOT(&KEQ AND &KGE)).T001350 @ZA07549 10500000 ISTERMAC 8,OPTCD,KEQ,KGE @ZA34940 10550000 &IDACB01 SETB 1 10600000 .T001350 AIF (NOT(&WAITX AND &NWAITX)).T001400 @ZA07549 10650000 ISTERMAC 8,OPTCD,WAITX,NWAITX @ZA34940 10700000 &IDACB01 SETB 1 @ZA07549 10750000 .T001400 AIF (NOT(&FKS AND &GEN)).T001500 10800000 ISTERMAC 8,OPTCD,FKS,GEN @ZA34940 10850000 &IDACB01 SETB 1 10900000 .T001500 AIF (NOT(&MVE AND &LOC)).T001600 X03004 10950000 ISTERMAC 8,OPTCD,MVE,LOC @ZA34940 11000000 &IDACB01 SETB 1 11050000 .T001600 AIF (NOT(&CA AND &CS)).T001800 @Z40BHUC 11100000 ISTERMAC 8,OPTCD,CA,CS @ZA34940 11150000 &IDACB01 SETB 1 X03004 11200000 .T001800 AIF (NOT(&RELEASE AND &PASS)).T001900 X03004 11250000 ISTERMAC 8,OPTCD,RELEASE,PASS @ZA34940 11300000 &IDACB01 SETB 1 X03004 11350000 .T001900 AIF (NOT(&NERASE AND &EAU)).T002000 X03004 11400000 ISTERMAC 8,OPTCD,NERASE,EAU @ZA34940 11450000 &IDACB01 SETB 1 X03004 11500000 .T002000 AIF (NOT(&NERASE AND &ERASE)).T002100 X03004 11550000 ISTERMAC 8,OPTCD,NERASE,ERASE @ZA34940 11600000 &IDACB01 SETB 1 X03004 11650000 .T002100 AIF (NOT(&EAU AND &ERASE)).T002200 X03004 11700000 ISTERMAC 8,OPTCD,EAU,ERASE @ZA34940 11750000 &IDACB01 SETB 1 X03004 11800000 .T002200 AIF (NOT(&SPEC AND &ANY)).T002300 X03004 11850000 ISTERMAC 8,OPTCD,SPEC,ANY @ZA34940 11900000 &IDACB01 SETB 1 X03004 11950000 .T002300 AIF (NOT(&NCONV AND &CONV)).T002400 X03004 12000000 ISTERMAC 8,OPTCD,NCONV,CONV @ZA34940 12050000 &IDACB01 SETB 1 X03004 12100000 .T002400 AIF (NOT(&LBT AND &LBM)).T002500 X03004 12150000 ISTERMAC 8,OPTCD,LBT,LBM @ZA34940 12200000 &IDACB01 SETB 1 X03004 12250000 .T002500 AIF (NOT(&LBT AND &BLK)).T002600 X03004 12300000 ISTERMAC 8,OPTCD,LBT,BLK @ZA34940 12350000 &IDACB01 SETB 1 X03004 12400000 .T002600 AIF (NOT(&LBM AND &BLK)).T002700 X03004 12450000 ISTERMAC 8,OPTCD,LBM,BLK @ZA34940 12500000 &IDACB01 SETB 1 X03004 12550000 .T002700 AIF (NOT(&COND AND &UNCOND)).T002800 X03004 12600000 ISTERMAC 8,OPTCD,COND,UNCOND @ZA34940 12650000 &IDACB01 SETB 1 X03004 12700000 .T002800 AIF (NOT(&COND AND &LOCK)).T002900 X03004 12750000 ISTERMAC 8,OPTCD,COND,LOCK @ZA34940 12800000 &IDACB01 SETB 1 X03004 12850000 .T002900 AIF (NOT(&UNCOND AND &LOCK)).T003000 X03004 12900000 ISTERMAC 8,OPTCD,UNCOND,LOCK @ZA34940 12950000 &IDACB01 SETB 1 X03004 13000000 .T003000 AIF (NOT(&LGONMSG AND &DEVCHAR)).T003100 X03004 13050000 ISTERMAC 8,OPTCD,LOGONMSG,DEVCHAR @ZA34940 13100000 &IDACB01 SETB 1 X03004 13150000 .T003100 AIF (NOT(&LGONMSG AND &TERMS)).T003200 X03004 13200000 ISTERMAC 8,OPTCD,LOGONMSG,TERMS @ZA34940 13250000 &IDACB01 SETB 1 X03004 13300000 .T003200 AIF (NOT(&LGONMSG AND &APPSTAT)).T003300 X03004 13350000 ISTERMAC 8,OPTCD,LOGONMSG,APPSTAT @ZA34940 13400000 &IDACB01 SETB 1 X03004 13450000 .T003300 AIF (NOT(&LGONMSG AND &COUNTS)).T003400 X03004 13500000 ISTERMAC 8,OPTCD,LOGONMSG,COUNTS @ZA34940 13550000 &IDACB01 SETB 1 X03004 13600000 .T003400 AIF (NOT(&LGONMSG AND &RNNAME)).T003500 X03004 13650000 ISTERMAC 8,OPTCD,LOGONMSG,RNNAME @ZA34940 13700000 &IDACB01 SETB 1 X03004 13750000 .T003500 AIF (NOT(&LGONMSG AND &CIDXLAT)).T003600 X03004 13800000 ISTERMAC 8,OPTCD,LOGONMSG,CIDXLATE @ZA34940 13850000 &IDACB01 SETB 1 X03004 13900000 .T003600 AIF (NOT(&LGONMSG AND &TOPLGON)).T003700 X03004 13950000 ISTERMAC 8,OPTCD,LOGONMSG,TOPLOGON @ZA34940 14000000 &IDACB01 SETB 1 X03004 14050000 .T003700 AIF (NOT(&LGONMSG AND &BSCID)).T003800 X03004 14100000 ISTERMAC 8,OPTCD,LOGONMSG,BSCID @ZA34940 14150000 &IDACB01 SETB 1 X03004 14200000 .T003800 AIF (NOT(&LGONMSG AND &DISPLAY)).T003900 X03004 14250000 ISTERMAC 8,OPTCD,LOGONMSG,DISPLAY @ZA34940 14300000 &IDACB01 SETB 1 X03004 14350000 .T003900 AIF (NOT(&LGONMSG AND &SESSPRM)).T003930 @G40AKSL 14400000 ISTERMAC 8,OPTCD,LOGONMSG,SESSPARM @ZA34940 14450000 &IDACB01 SETB 1 @ZA07555 14500000 .T003930 AIF (NOT(&LGONMSG AND &SESSKEY)).T003950 @G40AKSL 14550000 ISTERMAC 8,OPTCD,LOGONMSG,SESSKEY @ZA34940 14600000 &IDACB01 SETB 1 @G40AKSL 14650000 .T003950 AIF (NOT(&DEVCHAR AND &TERMS)).T004000 @ZA07555 14700000 ISTERMAC 8,OPTCD,DEVCHAR,TERMS @ZA34940 14750000 &IDACB01 SETB 1 X03004 14800000 .T004000 AIF (NOT(&DEVCHAR AND &APPSTAT)).T004100 X03004 14850000 ISTERMAC 8,OPTCD,DEVCHAR,APPSTAT @ZA34940 14900000 &IDACB01 SETB 1 X03004 14950000 .T004100 AIF (NOT(&DEVCHAR AND &COUNTS)).T004200 X03004 15000000 ISTERMAC 8,OPTCD,DEVCHAR,COUNTS @ZA34940 15050000 &IDACB01 SETB 1 X03004 15100000 .T004200 AIF (NOT(&DEVCHAR AND &RNNAME)).T004300 X03004 15150000 ISTERMAC 8,OPTCD,DEVCHAR,RNNAME @ZA34940 15200000 &IDACB01 SETB 1 X03004 15250000 .T004300 AIF (NOT(&DEVCHAR AND &CIDXLAT)).T004400 X03004 15300000 ISTERMAC 8,OPTCD,DEVCHAR,CIDXLATE @ZA34940 15350000 &IDACB01 SETB 1 X03004 15400000 .T004400 AIF (NOT(&DEVCHAR AND &TOPLGON)).T004500 X03004 15450000 ISTERMAC 8,OPTCD,DEVCHAR,TOPLOGON @ZA34940 15500000 &IDACB01 SETB 1 X03004 15550000 .T004500 AIF (NOT(&DEVCHAR AND &BSCID)).T004600 X03004 15600000 ISTERMAC 8,OPTCD,DEVCHAR,BSCID @ZA34940 15650000 &IDACB01 SETB 1 X03004 15700000 .T004600 AIF (NOT(&DEVCHAR AND &DISPLAY)).T004650 @ZA07555 15750000 ISTERMAC 8,OPTCD,DEVCHAR,DISPLAY @ZA34940 15800000 &IDACB01 SETB 1 X03004 15850000 .T004650 AIF (NOT(&DEVCHAR AND &SESSPRM)).T004670 @G40AKSL 15900000 ISTERMAC 8,OPTCD,DEVCHAR,SESSPARM @ZA34940 15950000 &IDACB01 SETB 1 @ZA07555 16000000 .T004670 AIF (NOT(&DEVCHAR AND &SESSKEY)).T004700 @G40AKSL 16050000 ISTERMAC 8,OPTCD,DEVCHAR,SESSKEY @ZA34940 16100000 &IDACB01 SETB 1 @G40AKSL 16150000 .T004700 AIF (NOT(&TERMS AND &APPSTAT)).T004800 X03004 16200000 ISTERMAC 8,OPTCD,TERMS,APPSTAT @ZA34940 16250000 &IDACB01 SETB 1 X03004 16300000 .T004800 AIF (NOT(&TERMS AND &COUNTS)).T004900 X03004 16350000 ISTERMAC 8,OPTCD,TERMS,COUNTS @ZA34940 16400000 &IDACB01 SETB 1 X03004 16450000 .T004900 AIF (NOT(&TERMS AND &RNNAME)).T005000 X03004 16500000 ISTERMAC 8,OPTCD,TERMS,RNNAME @ZA34940 16550000 &IDACB01 SETB 1 X03004 16600000 .T005000 AIF (NOT(&TERMS AND &CIDXLAT)).T005100 X03004 16650000 ISTERMAC 8,OPTCD,TERMS,CIDXLATE @ZA34940 16700000 &IDACB01 SETB 1 X03004 16750000 .T005100 AIF (NOT(&TERMS AND &TOPLGON)).T005200 X03004 16800000 ISTERMAC 8,OPTCD,TERMS,TOPLOGON @ZA34940 16850000 &IDACB01 SETB 1 X03004 16900000 .T005200 AIF (NOT(&TERMS AND &BSCID)).T005300 X03004 16950000 ISTERMAC 8,OPTCD,TERMS,BSCID @ZA34940 17000000 &IDACB01 SETB 1 X03004 17050000 .T005300 AIF (NOT(&TERMS AND &DISPLAY)).T005350 @ZA07555 17100000 ISTERMAC 8,OPTCD,TERMS,APPSTAT @ZA34940 17150000 &IDACB01 SETB 1 X03004 17200000 .T005350 AIF (NOT(&TERMS AND &SESSPRM)).T005370 @G40AKSL 17250000 ISTERMAC 8,OPTCD,TERMS,SESSPARM @ZA34940 17300000 &IDACB01 SETB 1 @ZA07555 17350000 .T005370 AIF (NOT(&TERMS AND &SESSKEY)).T005400 @G40AKSL 17400000 ISTERMAC 8,OPTCD,TERMS,SESSKEY @ZA34940 17450000 &IDACB01 SETB 1 @G40AKSL 17500000 .T005400 AIF (NOT(&APPSTAT AND &COUNTS)).T005500 X03004 17550000 ISTERMAC 8,OPTCD,APPSTAT,COUNTS @ZA34940 17600000 &IDACB01 SETB 1 X03004 17650000 .T005500 AIF (NOT(&APPSTAT AND &RNNAME)).T005600 X03004 17700000 ISTERMAC 8,OPTCD,APPSTAT,RNNAME @ZA34940 17750000 &IDACB01 SETB 1 X03004 17800000 .T005600 AIF (NOT(&APPSTAT AND &CIDXLAT)).T005700 X03004 17850000 ISTERMAC 8,OPTCD,APPSTAT,CIDXLATE @ZA34940 17900000 &IDACB01 SETB 1 X03004 17950000 .T005700 AIF (NOT(&APPSTAT AND &TOPLGON)).T005800 X03004 18000000 ISTERMAC 8,OPTCD,APPSTAT,TOPLOGON @ZA34940 18050000 &IDACB01 SETB 1 X03004 18100000 .T005800 AIF (NOT(&APPSTAT AND &BSCID)).T005900 X03004 18150000 ISTERMAC 8,OPTCD,APPSTAT,BSCID @ZA34940 18200000 &IDACB01 SETB 1 X03004 18250000 .T005900 AIF (NOT(&APPSTAT AND &DISPLAY)).T005950 @ZA07555 18300000 ISTERMAC 8,OPTCD,APPSTAT,DISPLAY @ZA34940 18350000 &IDACB01 SETB 1 X03004 18400000 .T005950 AIF (NOT(&APPSTAT AND &SESSPRM)).T005960 @G40AKSL 18450000 ISTERMAC 8,OPTCD,APPSTAT,SESSPARM @ZA34940 18500000 &IDACB01 SETB 1 @ZA07555 18550000 .T005960 AIF (NOT(&APPSTAT AND &SESSKEY)).T006000 @G40AKSL 18600000 ISTERMAC 8,OPTCD,APPSTAT,SESSKEY @ZA34940 18650000 &IDACB01 SETB 1 @G40AKSL 18700000 .T006000 AIF (NOT(&COUNTS AND &RNNAME)).T006100 X03004 18750000 ISTERMAC 8,OPTCD,COUNTS,RNNAME @ZA34940 18800000 &IDACB01 SETB 1 X03004 18850000 .T006100 AIF (NOT(&COUNTS AND &CIDXLAT)).T006200 X03004 18900000 ISTERMAC 8,OPTCD,COUNTS,CIDXLATE @ZA34940 18950000 &IDACB01 SETB 1 X03004 19000000 .T006200 AIF (NOT(&COUNTS AND &TOPLGON)).T006300 X03004 19050000 ISTERMAC 8,OPTCD,COUNTS,TOPLOGON @ZA34940 19100000 &IDACB01 SETB 1 X03004 19150000 .T006300 AIF (NOT(&COUNTS AND &BSCID)).T006400 X03004 19200000 ISTERMAC 8,OPTCD,COUNTS,BSCID @ZA34940 19250000 &IDACB01 SETB 1 X03004 19300000 .T006400 AIF (NOT(&COUNTS AND &DISPLAY)).T006450 @ZA07555 19350000 ISTERMAC 8,OPTCD,COUNTS,DISPLAY @ZA34940 19400000 &IDACB01 SETB 1 X03004 19450000 .T006450 AIF (NOT(&COUNTS AND &SESSPRM)).T006470 @G40AKSL 19500000 ISTERMAC 8,OPTCD,COUNTS,SESSPARM @ZA34940 19550000 &IDACB01 SETB 1 @ZA07555 19600000 .T006470 AIF (NOT(&COUNTS AND &SESSKEY)).T006500 @G40AKSL 19650000 ISTERMAC 8,OPTCD,COUNTS,SESSKEY @ZA34940 19700000 &IDACB01 SETB 1 @G40AKSL 19750000 .T006500 AIF (NOT(&RNNAME AND &CIDXLAT)).T006600 X03004 19800000 ISTERMAC 8,OPTCD,RNNAME,CIDXLATE @ZA34940 19850000 &IDACB01 SETB 1 X03004 19900000 .T006600 AIF (NOT(&RNNAME AND &TOPLGON)).T006700 X03004 19950000 ISTERMAC 8,OPTCD,RNNAME,TOPLOGON @ZA34940 20000000 &IDACB01 SETB 1 X03004 20050000 .T006700 AIF (NOT(&RNNAME AND &BSCID)).T006800 X03004 20100000 ISTERMAC 8,OPTCD,RNNAME,BSCID @ZA34940 20150000 &IDACB01 SETB 1 X03004 20200000 .T006800 AIF (NOT(&RNNAME AND &DISPLAY)).T006850 @ZA07555 20250000 ISTERMAC 8,OPTCD,RNNAME,DISPLAY @ZA34940 20300000 &IDACB01 SETB 1 X03004 20350000 .T006850 AIF (NOT(&RNNAME AND &SESSPRM)).T006870 @G40AKSL 20400000 ISTERMAC 8,OPTCD,RNNAME,SESSPARM @ZA34940 20450000 &IDACB01 SETB 1 @ZA07555 20500000 .T006870 AIF (NOT(&RNNAME AND &SESSKEY)).T006900 @G40AKSL 20550000 ISTERMAC 8,OPTCD,RNNAME,SESSKEY @ZA34940 20600000 &IDACB01 SETB 1 @G40AKSL 20650000 .T006900 AIF (NOT(&CIDXLAT AND &TOPLGON)).T007000 X03004 20700000 ISTERMAC 8,OPTCD,CIDXLATE,TOPLOGON @ZA34940 20750000 &IDACB01 SETB 1 X03004 20800000 .T007000 AIF (NOT(&CIDXLAT AND &BSCID)).T007100 X03004 20850000 ISTERMAC 8,OPTCD,CIDXLATE,BSCID @ZA34940 20900000 &IDACB01 SETB 1 X03004 20950000 .T007100 AIF (NOT(&CIDXLAT AND &DISPLAY)).T007150 @ZA07555 21000000 ISTERMAC 8,OPTCD,CIDXLATE,DISPLAY @ZA34940 21050000 &IDACB01 SETB 1 X03004 21100000 .T007150 AIF (NOT(&CIDXLAT AND &SESSPRM)).T007170 @G40AKSL 21150000 ISTERMAC 8,OPTCD,CIDXLATE,SESSPARM @ZA34940 21200000 &IDACB01 SETB 1 @ZA07555 21250000 .T007170 AIF (NOT(&CIDXLAT AND &SESSKEY)).T007200 @G40AKSL 21300000 ISTERMAC 8,OPTCD,CIDXLATE,SESSKEY @ZA34940 21350000 &IDACB01 SETB 1 @G40AKSL 21400000 .T007200 AIF (NOT(&TOPLGON AND &BSCID)).T007300 X03004 21450000 ISTERMAC 8,OPTCD,TOPLOGON,BSCID @ZA34940 21500000 &IDACB01 SETB 1 X03004 21550000 .T007300 AIF (NOT(&TOPLGON AND &DISPLAY)).T007350 @ZA07555 21600000 ISTERMAC 8,OPTCD,TOPLOGON,DISPLAY @ZA34940 21650000 &IDACB01 SETB 1 X03004 21700000 .T007350 AIF (NOT(&TOPLGON AND &SESSPRM)).T007370 @G40AKSL 21750000 ISTERMAC 8,OPTCD,TOPLOGON,SESSPARM @ZA34940 21800000 &IDACB01 SETB 1 @ZA07555 21850000 .T007370 AIF (NOT(&TOPLGON AND &SESSKEY)).T007400 @G40AKSL 21900000 ISTERMAC 8,OPTCD,TOPLOGON,SESSKEY @ZA34940 21950000 &IDACB01 SETB 1 @G40AKSL 22000000 .T007400 AIF (NOT(&BSCID AND &DISPLAY)).T007410 @ZA07555 22050000 ISTERMAC 8,OPTCD,BSCID,DISPLAY @ZA34940 22100000 &IDACB01 SETB 1 X03004 22150000 .T007410 AIF (NOT(&BSCID AND &SESSPRM)).T007415 @G40AKSL 22200000 ISTERMAC 8,OPTCD,BSCID,SESSPARM @ZA34940 22250000 &IDACB01 SETB 1 @ZA07555 22300000 .T007415 AIF (NOT(&BSCID AND &SESSKEY)).T007420 @G40AKSL 22350000 ISTERMAC 8,OPTCD,BSCID,SESSKEY @ZA34940 22400000 &IDACB01 SETB 1 @G40AKSL 22450000 .T007420 AIF (NOT(&DISPLAY AND &SESSPRM)).T007450 @G40AKSL 22500000 ISTERMAC 8,OPTCD,DISPLAY,SESSPARM @ZA34940 22550000 &IDACB01 SETB 1 @ZA07555 22600000 .T007450 AIF (NOT(&DISPLAY AND &SESSKEY)).T007470 @G40AKSL 22650000 ISTERMAC 8,OPTCD,DISPLAY,SESSKEY @ZA34940 22700000 &IDACB01 SETB 1 @G40AKSL 22750000 .T007470 AIF (NOT(&SESSPRM AND &SESSKEY)).T007500 @G40AKSL 22800000 ISTERMAC 8,OPTCD,SESSPARM,SESSKEY @ZA34940 22850000 &IDACB01 SETB 1 @G40AKSL 22900000 .T007500 AIF (NOT(&RELRQ AND &NRELRQ)).T007600 X03004 22950000 ISTERMAC 8,OPTCD,RELRQ,NRELRQ @ZA34940 23000000 &IDACB01 SETB 1 X03004 23050000 .T007600 AIF (NOT(&Q AND &NQ)).T007700 X03004 23100000 ISTERMAC 8,OPTCD,Q,NQ @ZA34940 23150000 &IDACB01 SETB 1 X03004 23200000 .T007700 AIF (NOT(&PEND AND &SESSION)).T007800 X03004 23250000 ISTERMAC 8,OPTCD,PEND,SESSION @ZA34940 23300000 &IDACB01 SETB 1 X03004 23350000 .T007800 AIF (NOT(&PEND AND &ACTIVE)).T007900 X03004 23400000 ISTERMAC 8,OPTCD,PEND,ACTIVE @ZA34940 23450000 &IDACB01 SETB 1 X03004 23500000 .T007900 AIF (NOT(&PEND AND &UNCONDL)).T008000 X03004 23550000 ISTERMAC 8,OPTCD,PEND,UNCONDL @ZA34940 23600000 &IDACB01 SETB 1 X03004 23650000 .T008000 AIF (NOT(&SESSION AND &ACTIVE)).T008100 X03004 23700000 ISTERMAC 8,OPTCD,SESSION,ACTIVE @ZA34940 23750000 &IDACB01 SETB 1 X03004 23800000 .T008100 AIF (NOT(&SESSION AND &UNCONDL)).T008200 X03004 23850000 ISTERMAC 8,OPTCD,SESSION,UNCONDL @ZA34940 23900000 &IDACB01 SETB 1 X03004 23950000 .T008200 AIF (NOT(&ACTIVE AND &UNCONDL)).T008300 X03004 24000000 ISTERMAC 8,OPTCD,ACTIVE,UNCONDL @ZA34940 24050000 &IDACB01 SETB 1 X03004 24100000 .T008300 AIF (NOT(&QUIESCE AND &START)).T008400 X03004 24150000 ISTERMAC 8,OPTCD,QUIESCE,START @ZA34940 24200000 &IDACB01 SETB 1 X03004 24250000 .T008400 AIF (NOT(&QUIESCE AND &STOP)).T008500 X03004 24300000 ISTERMAC 8,OPTCD,QUIESCE,STOP @ZA34940 24350000 &IDACB01 SETB 1 X03004 24400000 .T008500 AIF (NOT(&START AND &STOP)).T008600 X03004 24450000 ISTERMAC 8,OPTCD,START,STOP @ZA34940 24500000 &IDACB01 SETB 1 X03004 24550000 .T008600 AIF (NOT(&ACCEPT AND &ACQUIRE)).T008900 @Z40BHUC 24600000 ISTERMAC 8,OPTCD,ACCEPT,ACQUIRE @ZA34940 24650000 &IDACB01 SETB 1 X03004 24700000 .T008900 AIF (NOT(&CONALL AND &CONANY)).T009100 @Z40BHUC 24750000 ISTERMAC 8,OPTCD,CONALL,CONANY @ZA34940 24800000 &IDACB01 SETB 1 X03004 24850000 .T009100 AIF (NOT(&KEEP AND &TRUNC)).T009200 X3004BS 24900000 ISTERMAC 8,OPTCD,KEEP,TRUNC @ZA34940 24950000 &IDACB01 SETB 1 X3004BS 25000000 .T009200 AIF (NOT(&KEEP AND &NIBTK)).T009300 X3004BS 25050000 ISTERMAC 8,OPTCD,KEEP,NIBTK @ZA34940 25100000 &IDACB01 SETB 1 X3004BS 25150000 .T009300 AIF (NOT(&NIBTK AND &TRUNC)).T009700 @Z40BHUC 25200000 ISTERMAC 8,OPTCD,NIBTK,TRUNC @ZA34940 25250000 &IDACB01 SETB 1 X3004BS 25300000 .T009700 AIF (NOT(&FMHDR AND &NFMHDR)).T009800 X04SVHS 25350000 .* CHK FOR MUTUALLY OPTS X03004HS 25400000 ISTERMAC 8,OPTCD,FMHDR,NFMHDR @ZA34940 25450000 &IDACB01 SETB 1 X03004HS 25500000 .T009800 ANOP X04SVHS 25550000 AIF (NOT(&BWD AND &FWD)).T009900 CHK FOR MUTUALLY X04SVHS 25600000 .* EXCLUSIVE OPTIONS X04SVHS 25650000 ISTERMAC 8,OPTCD,FWD,BWD @ZA34940 25700000 &IDACB01 SETB 1 SET ERROR SWITCH X04SVHS 25750000 .T009900 ANOP X04SVHS 25800000 AIF (NOT(&ARD AND &LRD)).T010000 CHK FOR MUTUALLY X04SVHS 25850000 .* EXCLUSIVE OPTIONS X04SVHS 25900000 ISTERMAC 8,OPTCD,ARD,LRD @ZA34940 25950000 &IDACB01 SETB 1 SET ERROR SWITCH X04SVHS 26000000 .T010000 ANOP X04SVHS 26050000 AIF ('&CALLER' EQ 'RPL').T010100 X04SVHS 26100000 .* IF CALLED BY RPL, THEN GLOBALS MUST BE SET FOR 26150000 .* RPL TO GENERATE CODE FROM IN THE FORM OF DC'S 26200000 &IDAVALC(&IDAENO) SETC '&KEY&ADR&CNV&SEQ&DIR&SKP&SYN&ASY&NUP&UPD&NSP&KE*26250000 Q&KGE&FKS&GEN&MVE&LOC&FWD&BWD&ARD&LRD.0&WAITX&NWAITX.000*26300000 00000' @ZA07549 26350000 &IDAOPT2 SETC '&CA&CS.00&RELEASE&PASS&NERASE&EAU&ERASE&SPEC&ANY&NCONV&*26400000 CONV&LBT&LBM&BLK&COND&UNCOND&LOCK.00&LGONMSG&DEVCHAR&TER*26450000 MS&APPSTAT&COUNTS&RNNAME&CIDXLAT&TOPLGON' @Z40BHUC 26500000 &IDAOPT2 SETC '&IDAOPT2&BSCID&DISPLAY&RELRQ' X03004 26550000 &IDAOPT3 SETC '&NRELRQ&Q&NQ&PEND&SESSION&ACTIVE&UNCONDL&QUIESCE&START&*26600000 STOP&ACCEPT&ACQUIRE.0&CONALL&CONANY.00&KEEP&TRUNC&NIBTK.*26650000 00&SESSKEY&FMHDR&NFMHDR&SESSPRM.000000' @G40AKSL 26700000 MEXIT 26750000 .T010100 ANOP X04SVHS 26800000 AIF ('&CALLER' NE 'RPL').T011600 X04SVHS 26850000 .* AT THIS POINT EITHER ISTCBOPT WAS CALLED BY RPL,@ZA34940 26900000 .* OPTCD IS UNSPECIFIED, OR BOTH. IF CALLED BY RPL 26950000 .* SET ANY UNSPECIFIED DEFAULTS. 27000000 .* DEFAULTS FOR CBM WILL BE SET AT EXECUTE TIME 27050000 .* 27100000 &KEY SETB (NOT(&ADR OR &CNV) OR &KEY) X04SVHS 27150000 .* IF NOT ADR, OR CNV, SET KEY AS DEFAULT 27200000 &SEQ SETB (NOT(&DIR OR &SKP) OR &SEQ) X04SVHS 27250000 .* IF NOT DIR, OR SKP, SET SEQ AS DEFAULT 27300000 AIF ('&AM' NE 'VTAM').T011500 WAS VTAM SPECIFIED X04SVHS 27350000 .* SET VTAM DEFAULTS 27400000 &ACCEPT SETB (NOT(&ACQUIRE) OR &ACCEPT) @Z40BHUC 27450000 .* IF NOT ACQUIRE, SET ACCEPT DEFAULT 27500000 &Q SETB (NOT(&NQ) OR &Q) X04SVHS 27550000 .* IF NOT NQ SET Q AS DEFAULT 27600000 &RELRQ SETB (NOT(&NRELRQ) OR &RELRQ) X04SVHS 27650000 .* IF NOT NRELRQ SET RELRQ DEFAULT 27700000 &NERASE SETB (NOT(&EAU OR &ERASE) OR &NERASE) X04SVHS 27750000 .* IF NOT EAU OR ERASE, SET NERASE DEFAULT 27800000 &LBT SETB (NOT(&BLK OR &LBM) OR &LBT) X04SVHS 27850000 .* IF NOT BLK OR LBM, SET LBT DEFAULT 27900000 &COND SETB (NOT(&UNCOND OR &LOCK) OR &COND) X04SVHS 27950000 .* IF NOT UNCOND OR LOCK, SET COND DEFAULT 28000000 &CONALL SETB (NOT(&CONANY) OR &CONALL) X04SVHS 28050000 .* IF NOT CONANY SET CONALL DEFAULT 28100000 &QUIESCE SETB (NOT(&START OR &STOP) OR &QUIESCE) X04SVHS 28150000 .* IF NOT START OR STOP, SET QUIESCE DEFAULT 28200000 &LGONMSG SETB (NOT(&DEVCHAR OR &TERMS OR &APPSTAT OR &COUNTS OR &RNNAM*28250000 E OR &CIDXLAT OR &TOPLGON OR &BSCID OR &DISPLAY OR &SESS*28300000 PRM OR &SESSKEY) OR &LGONMSG) @G40AKCM 28350000 .* IF NONE OF ABOVE, LOGONMSG IS DEFAULT 28400000 &PEND SETB (NOT(&SESSION OR &ACTIVE OR &UNCONDL) OR &PEND) X04SVHS 28450000 .* IF NONE OF ABOVE, SET PEND DEFAULT 28500000 &NIBTK SETB (NOT(&TRUNC OR &KEEP) OR &NIBTK) X04SVHS 28550000 .* IF NOT KEEP OR TRUNC SET NIBTK DEFAULT 28600000 .T011500 ANOP X3004BH 28650000 .* SET GLOBALS TO BE ASSEMBLED BY DECLARATIVE AS CONSTANTS 28700000 &IDAOP1 SETC '&LOC&DIR&SEQ&SKP&ASY&KGE&GEN' OPTCD BYTE 1 X04SVHS 28750000 &IDAOP2 SETC '&KEY&ADR&CNV&BWD&LRD&WAITX&UPD&NSP' @ZA07549 28800000 .* OPTCD BYTE 2 @ZA07549 28850000 AIF ('&AM' NE 'VTAM').T011600 X04SVHS 28900000 .* IF NOT VTAM, BYPASS SETTING VTAM OPTION BYTES 28950000 &IDAOP5 SETC '&CS.0&PASS&NERASE&EAU&ERASE&ANY&CONV' @Z40BHUC 29000000 .* OPTCD BYTE 5 X04SVHS 29050000 &IDAOP6 SETC '&BLK&LBM&LBT&COND&UNCOND&LOCK.00' OPTCD BYTE 6 X04SVHS 29100000 &IDAOP7 SETC '&CONALL&CONANY.0&Q.0&RELRQ.00' OPTCD BYTE 7 X04SVHS 29150000 &IDAOP8 SETC '&ACQUIRE&ACCEPT.0&PEND&SESSION&ACTIVE&UNCONDL.0' 29200000 .* OPTCD BYTE 8 @Z40BHUC 29250000 &IDAOP9 SETC '&LGONMSG&DEVCHAR&TERMS&COUNTS&APPSTAT&RNNAME&CIDXLAT&TO*29300000 PLGON' OPTCD BYTE 9 X04SVHS 29350000 &IDAOPA SETC '&BSCID&DISPLAY&SESSPRM&SESSKEY.0000' 29400000 .* OPTCD BYTE 10 @G40AKSL 29450000 &IDAOPB SETC '&QUIESCE&START&STOP.00000' OPTCD BYTE 11 X04SVHS 29500000 &IDAOPC SETC '0&KEEP&TRUNC&NIBTK.000&FMHDR' @Z40BHUC 29550000 .* OPTCD BYTE 12 X04SVHS 29600000 .T011600 ANOP X04SVHS 29650000 MEND 29700000