MACRO 00050038 IDACBOPT &OPTCD=,&AM=,&MF=,&CALLER= 00100038 .* FUNCTION - THIS MACRO PROCESSES THE RPL KEYWORD OPTCD. IT IS CALLED 00110038 .* BY IDACBRPL. IT VALIDITY CHECKS THE OPTIONS SPECIFIED 00120038 .* BY THE USER ON GENCB, MODCB, OR TESTCB FOR OPTCD. IT 00130038 .* CHECKS FOR MUTUALLY EXCLUSIVE OPTIONS SPECIFIED AND 00140038 .* ISSUES ERROR MESSAGES VIA IDAERMAC. IF THE OPTIONS ARE 00142038 .* VALID, IDACBOPT SETS VALUES IN VARIOUS GLOBAL ARRAYS 00144038 .* TO BE USED BY IDACB2 TO BUILD A PARAMETER LIST OF 00146038 .* ARGUMENT CONTROL ENTRIES FOR THE CONTROL BLOCK 00148038 .* MANIPULATION MODULE TO BE USED AT EXECUTE TIME. 00148438 .* IT CALLS IDACB3 TO SET THE ELEMENT TYPE CODE AND THE 00148838 .* KEYWORD TYPE CODE FOR OPTCD. 00149238 .* 00149638 .* IT IS ALSO CALLED BY THE RPL DECLARATIVE MACRO VIA 00149738 .* IDACBRPL. WHEN CALLED BY THE DECLARATIVE MACRO, 00149838 .* DIFFERENT GLOBALS ARE SET THAN THASE USED BY THE CBMM. 00149938 .* THEREFORE, THE BITS SET IN THESE GLOBALS MUST BE 00166638 .* IDENTICAL TO THE WAY THEY WILL APPEAR WHEN THE 00176638 .* CONTROL BLOCK IS GENERATED. 00178638 .* 00180638 .* 00181100 .* 00181300 .* CHANGE ACTIVITY 00181500 .* SESSPARM MUTUALLY EXCLUSIVE WITH LOGONMSG DEFAULT @ZA07555 00181700 .* 00182138 .* GLOBALS 00182638 GBLB &IDACB01 ERROR INDICATOR 00183338 GBLA &IDAENO NUMBER OF ELEMENTS 00200038 GBLC &IDAVALC(50) ELEMENT CHARACTER VALUE ARRAY 00250038 GBLA &IDAELEN(50) ELEMENT FIELD LENGTH ARRAY 00300038 GBLC &IDAOPT2,&IDAOPT3 BIT STRING EXTENSIONS 00350038 .* THE FOLLOWING GLOBALS ARE USED TO PASS THE VALUES OF 00360038 .* THE OPTCD BYTES BACK TO THE DECLARATIVE MACRO RPL. 00370038 GBLC &IDAOP1,&IDAOP2,&IDAOP5,&IDAOP6,&IDAOP7,&IDAOP8 X04SVHS 00380038 GBLC &IDAOP9,&IDAOPA,&IDAOPB,&IDAOPC 00390038 .* LOCALS 00392038 LCLA &I,&A,&B,&C,&D,&ERR WORK VARIABLES X04SVHS 00400038 LCLB &KEY,&ADR,&CNV,&SEQ,&DIR,&SKP OPTCD CODES 00450038 LCLB &SYN,&ASY,&NUP,&UPD,&NSP,&KEQ OPTCD CODES 00500000 LCLB &KGE,&FKS,&GEN,&MVE,&LOC OPTCD CODES 00540048 LCLB &CA,&CS,&RELEASE,&PASS OPTCD CODES @Z40BHUC 00580048 LCLB &WAITX,&NWAITX OPTCD CODES @ZA07549 00620148 LCLB &NERASE,&EAU,&ERASE,&SPEC,&ANY OPTCD CODES X03004 00650038 LCLB &NCONV,&CONV,&LBT,&BLK,&COND OPTCD CODES X03004 00700038 LCLB &UNCOND,&LOCK,&LGONMSG,&DEVCHAR OPTCD CODES X03004 00750038 LCLB &TERMS,&APPSTAT,&COUNTS,&RNNAME OPTCD CODES X03004 00800038 LCLB &CIDXLAT,&TOPLGON,&BSCID,&LBM OPTCD CODES X03004 00850038 LCLB &DISPLAY,&RELRQ,&NRELRQ,&Q,&NQ OPTCD CODES X03004 00900038 LCLB &PEND,&SESSION,&ACTIVE,&UNCONDL OPTCD CODES X03004 00950038 LCLB &QUIESCE,&START,&STOP,&ACCEPT OPTCD CODES X03004 01000038 LCLB &ACQUIRE,&CONALL,&CONANY OPTCD CODES @Z40BHUC 01050038 LCLB &KEEP,&TRUNC OPTCD CODES @Z40BHUC 01100038 LCLB &NIBTK OPTCD CODES @Z40BHUC 01150038 LCLB &FMHDR,&NFMHDR OPTCD CODE X03004HS 01200038 LCLB &FWD,&BWD,&ARD,&LRD OPTCD CODES X04SVHS 01250038 LCLB &SESSPRM OPTCD CODE @Z40BHUC 01260038 LCLB &SESSKEY OPTCD CODE @G40AKSL 01280000 .* 01300038 AIF ('&OPTCD' EQ '').T010100 CHECK FOR NULL PARAM X04SVHS 01310038 AIF ('&CALLER' EQ 'RPL').T000100 X04SVHS 01350038 .* IF CALLED BY RPL DECLARATIVE, BYPASS CALL OF IDACB3 01360038 IDACB3 ARG=&OPTCD,ARGNAME=OPTCD,KWTC=X'34',MF=&MF,BIT=YES, *01400038 INDRECT=YES 01450038 &IDAELEN(&IDAENO) SETA 12 X04SVHS 01500038 AIF ('&OPTCD(1)' EQ '*').T011600 X04SVHS 01550038 .T000100 ANOP 01900038 &I SETA &I+1 BUMP INDEX VARIABLE 01950038 AIF (&I GT N'&OPTCD).T000300 HAVE ALL OPTIONS BEEN CHECKED 02000038 &KEY SETB ('&OPTCD(&I)' EQ 'KEY' OR &KEY) 02050038 &ADR SETB ('&OPTCD(&I)' EQ 'ADR' OR &ADR) 02100038 &CNV SETB ('&OPTCD(&I)' EQ 'CNV' OR &CNV) 02150038 &SEQ SETB ('&OPTCD(&I)' EQ 'SEQ' OR &SEQ) 02200038 &DIR SETB ('&OPTCD(&I)' EQ 'DIR' OR &DIR) 02250038 &SKP SETB ('&OPTCD(&I)' EQ 'SKP' OR &SKP) 02300038 &SYN SETB ('&OPTCD(&I)' EQ 'SYN' OR &SYN) 02350038 &ASY SETB ('&OPTCD(&I)' EQ 'ASY' OR &ASY) 02400038 &NUP SETB ('&OPTCD(&I)' EQ 'NUP' OR &NUP) 02450038 &UPD SETB ('&OPTCD(&I)' EQ 'UPD' OR &UPD) 02500038 &NSP SETB ('&OPTCD(&I)' EQ 'NSP' OR &NSP) 02550038 &KEQ SETB ('&OPTCD(&I)' EQ 'KEQ' OR &KEQ) 02600038 &KGE SETB ('&OPTCD(&I)' EQ 'KGE' OR &KGE) 02650038 &FKS SETB ('&OPTCD(&I)' EQ 'FKS' OR &FKS) 02700038 &GEN SETB ('&OPTCD(&I)' EQ 'GEN' OR &GEN) 02750038 &MVE SETB ('&OPTCD(&I)' EQ 'MVE' OR &MVE) 02800038 &LOC SETB ('&OPTCD(&I)' EQ 'LOC' OR &LOC) 02850038 &FWD SETB ('&OPTCD(&I)' EQ 'FWD' OR &FWD) X04SVHS 02900038 &BWD SETB ('&OPTCD(&I)' EQ 'BWD' OR &BWD) X04SVHS 02950038 &ARD SETB ('&OPTCD(&I)' EQ 'ARD' OR &ARD) X04SVHS 03000038 &LRD SETB ('&OPTCD(&I)' EQ 'LRD' OR &LRD) X04SVHS 03050038 &WAITX SETB ('&OPTCD(&I)' EQ 'WAITX' OR &WAITX) @ZA07549 03100048 &NWAITX SETB ('&OPTCD(&I)' EQ 'NWAITX' OR &NWAITX) @ZA07549 03105048 &A SETA &KEY+&ADR+&CNV+&SEQ+&DIR+&SKP+&SYN+&ASY+&NUP+&UPD+&NSP+&*03110048 KEQ+&KGE+&FKS+&GEN+&MVE+&LOC+&FWD+&BWD+&ARD+&LRD+&WAITX+*03130048 &NWAITX @ZA07549 03140048 .* &A CONTAINS THE NUMBER OF VSAM OPTIONS SPECIFIED 03160038 .* &B, &C, AND &D CONTAIN THE NUMBER OF VTAM OPTIONS SPEC 03170038 .* &ERR CONTAINS THE NUMBER OF ERRORS 03180038 AIF (&A+&B+&C+&D+&ERR EQ &I).T000100 03200038 .* IF &A+&B+&C+&D+&ERR EQUAL &I, THE LAST OPTION CHECKED 03250038 .* WAS A VALID VSAM OPTION. ELSE CHECK FOR A VALID VTAM 03300038 .* OPTION 03310038 &CA SETB ('&OPTCD(&I)' EQ 'CA' OR &CA) X03004 03350038 &CS SETB ('&OPTCD(&I)' EQ 'CS' OR &CS) X03004 03400038 &RELEASE SETB ('&OPTCD(&I)' EQ 'RELEASE' OR &RELEASE) X03004 03550038 &PASS SETB ('&OPTCD(&I)' EQ 'PASS' OR &PASS) X03004 03600038 &NERASE SETB ('&OPTCD(&I)' EQ 'NERASE' OR &NERASE) X03004 03650038 &EAU SETB ('&OPTCD(&I)' EQ 'EAU' OR &EAU) X03004 03700038 &ERASE SETB ('&OPTCD(&I)' EQ 'ERASE' OR &ERASE) X03004 03750038 &SPEC SETB ('&OPTCD(&I)' EQ 'SPEC' OR &SPEC) X03004 03800038 &ANY SETB ('&OPTCD(&I)' EQ 'ANY' OR &ANY) X03004 03850038 &NCONV SETB ('&OPTCD(&I)' EQ 'NCONV' OR &NCONV) X03004 03900038 &CONV SETB ('&OPTCD(&I)' EQ 'CONV' OR &CONV) X03004 03950038 &LBT SETB ('&OPTCD(&I)' EQ 'LBT' OR &LBT) X03004 04000038 &LBM SETB ('&OPTCD(&I)' EQ 'LBM' OR &LBM) X03004 04050038 &BLK SETB ('&OPTCD(&I)' EQ 'BLK' OR &BLK) X03004 04100038 &COND SETB ('&OPTCD(&I)' EQ 'COND' OR &COND) X03004 04150038 &UNCOND SETB ('&OPTCD(&I)' EQ 'UNCOND' OR &UNCOND) X03004 04200038 &LOCK SETB ('&OPTCD(&I)' EQ 'LOCK' OR &LOCK) X03004 04250038 &LGONMSG SETB ('&OPTCD(&I)' EQ 'LOGONMSG' OR &LGONMSG) X03004 04300038 &DEVCHAR SETB ('&OPTCD(&I)' EQ 'DEVCHAR' OR &DEVCHAR) X03004 04350038 &TERMS SETB ('&OPTCD(&I)' EQ 'TERMS' OR &TERMS) X03004 04400038 &APPSTAT SETB ('&OPTCD(&I)' EQ 'APPSTAT' OR &APPSTAT) X03004 04450038 &COUNTS SETB ('&OPTCD(&I)' EQ 'COUNTS' OR &COUNTS) X03004 04500038 &RNNAME SETB ('&OPTCD(&I)' EQ 'RNNAME' OR &RNNAME) X03004 04550038 &CIDXLAT SETB ('&OPTCD(&I)' EQ 'CIDXLATE' OR &CIDXLAT) X03004 04600038 &TOPLGON SETB ('&OPTCD(&I)' EQ 'TOPLOGON' OR &TOPLGON) X03004 04650038 &BSCID SETB ('&OPTCD(&I)' EQ 'BSCID' OR &BSCID) X03004 04700038 &DISPLAY SETB ('&OPTCD(&I)' EQ 'DISPLAY' OR &DISPLAY) X03004 04750038 &RELRQ SETB ('&OPTCD(&I)' EQ 'RELRQ' OR &RELRQ) X03004 04800038 &NRELRQ SETB ('&OPTCD(&I)' EQ 'NRELRQ' OR &NRELRQ) X03004 04850038 &Q SETB ('&OPTCD(&I)' EQ 'Q' OR &Q) X03004 04900038 &NQ SETB ('&OPTCD(&I)' EQ 'NQ' OR &NQ) X03004 04950038 &PEND SETB ('&OPTCD(&I)' EQ 'PEND' OR &PEND) X03004 05000038 &SESSION SETB ('&OPTCD(&I)' EQ 'SESSION' OR &SESSION) X03004 05050038 &ACTIVE SETB ('&OPTCD(&I)' EQ 'ACTIVE' OR &ACTIVE) X03004 05100038 &UNCONDL SETB ('&OPTCD(&I)' EQ 'UNCONDL' OR &UNCONDL) X03004 05150038 &QUIESCE SETB ('&OPTCD(&I)' EQ 'QUIESCE' OR &QUIESCE) X03004 05200038 &START SETB ('&OPTCD(&I)' EQ 'START' OR &START) X03004 05250038 &STOP SETB ('&OPTCD(&I)' EQ 'STOP' OR &STOP) X03004 05300038 &ACCEPT SETB ('&OPTCD(&I)' EQ 'ACCEPT' OR &ACCEPT) X03004 05350038 &ACQUIRE SETB ('&OPTCD(&I)' EQ 'ACQUIRE' OR &ACQUIRE) X03004 05400038 &CONALL SETB ('&OPTCD(&I)' EQ 'CONALL' OR &CONALL) X03004 05500038 &CONANY SETB ('&OPTCD(&I)' EQ 'CONANY' OR &CONANY) X03004 05550038 &KEEP SETB ('&OPTCD(&I)' EQ 'KEEP' OR &KEEP) X3004BS 05700038 &TRUNC SETB ('&OPTCD(&I)' EQ 'TRUNC' OR &TRUNC) X3004BS 05750038 &NIBTK SETB ('&OPTCD(&I)' EQ 'NIBTK' OR &NIBTK) X3004BS 05800038 &FMHDR SETB ('&OPTCD(&I)' EQ 'FMHDR' OR &FMHDR) X03004HS 06000038 &NFMHDR SETB ('&OPTCD(&I)' EQ 'NFMHDR' OR &NFMHDR) X03004HS 06050038 &SESSPRM SETB ('&OPTCD(&I)' EQ 'SESSPARM' OR &SESSPRM) @Z40BHUC 06060038 &SESSKEY SETB ('&OPTCD(&I)' EQ 'SESSKEY' OR &SESSKEY) @G40AKSL 06080000 &B SETA &CA+&CS+&RELEASE+&PASS+&NERASE+&EAU+&ERASE+&SPEC+&ANY+&N*06100038 CONV+&CONV+&LBT+&LBM+&BLK+&COND+&UNCOND+&LOCK+&LGONMSG+&*06150038 DEVCHAR+&TERMS+&APPSTAT+&COUNTS+&RNNAME+&CIDXLAT 06200038 &C SETA &TOPLGON+&BSCID+&DISPLAY+&RELRQ+&NRELRQ+&Q+&NQ+&PEND+&SE*06250038 SSION+&ACTIVE+&UNCONDL+&QUIESCE+&START+&STOP+&ACCEPT+&AC*06300038 QUIRE+&CONALL+&CONANY+&KEEP 06350038 &D SETA &TRUNC+&NIBTK+&FMHDR+&NFMHDR+&SESSPRM+&SESSKEY 06400048 .* @G40AKSL 06405000 .* &A CONTAINS THE NUMBER OF VSAM OPTIONS SPECIFIED 06410038 .* &B, &C, AND &D CONTAIN THE NUMBER OF VTAM OPTIONS SPEC 06420038 .* &ERR CONTAINS THE NUMBER OF ERRORS 06430038 AIF (&A+&B+&C+&D+&ERR EQ &I).T000200 06450038 .* IF &A+&B+&C+&D+&ERR EQUAL &I, THE LAST OPTION CHECKED 06500038 .* WAS A VALID VTAM OPTION. ELSE IT WAS INVALID OR 06510038 .* DUPLICATED A PREVIOUSLY SPECIFIED OPTION. 06520038 IDAERMAC 5,OPTCD,&OPTCD(&I) 06550038 &IDACB01 SETB 1 06600038 &ERR SETA &ERR+1 BUMP ERROR COUNT X04SVHS 06610038 AGO .T000100 06650038 .T000200 AIF ('&AM' EQ 'VTAM').T000100 06700038 IDAERMAC 20,&OPTCD(&I),OPTCD X03004 06750038 &IDACB01 SETB 1 X03004 06800038 AGO .T000100 06850038 .********************************************************************** 06860038 .* 06870038 .* THE FOLLOWING CODE CHECKS FOR MUTUALLY EXCLUSIVE OPTIONS 06880038 .* IF THEY EXIST, AN ERROR MSG IS ISSUED 06890038 .* 06892038 .T000300 AIF (NOT(&KEY AND &ADR)).T000400 06900038 IDAERMAC 8,OPTCD,KEY,ADR 06950038 &IDACB01 SETB 1 07000038 .T000400 AIF (NOT(&KEY AND &CNV)).T000500 07050038 IDAERMAC 8,OPTCD,KEY,CNV 07100038 &IDACB01 SETB 1 07150038 .T000500 AIF (NOT(&ADR AND &CNV)).T000600 07200038 IDAERMAC 8,OPTCD,ADR,CNV 07250038 &IDACB01 SETB 1 07300038 .T000600 AIF (NOT(&SEQ AND &DIR)).T000700 07350038 IDAERMAC 8,OPTCD,SEQ,DIR 07400038 &IDACB01 SETB 1 07450038 .T000700 AIF (NOT(&SEQ AND &SKP)).T000800 07500038 IDAERMAC 8,OPTCD,SEQ,SKP 07550038 &IDACB01 SETB 1 07600038 .T000800 AIF (NOT(&DIR AND &SKP)).T000900 07650038 IDAERMAC 8,OPTCD,DIR,SKP 07700038 &IDACB01 SETB 1 07750038 .T000900 AIF (NOT(&SYN AND &ASY)).T001000 07800038 IDAERMAC 8,OPTCD,SYN,ASY 07850038 &IDACB01 SETB 1 07900038 .T001000 AIF (NOT(&NUP AND &UPD)).T001100 07950038 IDAERMAC 8,OPTCD,NUP,UPD 08000038 &IDACB01 SETB 1 08050038 .T001100 AIF (NOT(&NUP AND &NSP)).T001150 08100000 IDAERMAC 8,OPTCD,NUP,NSP 08110000 &IDACB01 SETB 1 08120000 .T001150 AIF (NOT(&UPD AND &NSP)).T001200 08130000 IDAERMAC 8,OPTCD,UPD,NSP 08140000 &IDACB01 SETB 1 08150000 .T001200 AIF (NOT(&KEQ AND &KGE)).T001350 @ZA07549 08160000 IDAERMAC 8,OPTCD,KEQ,KGE 08300048 &IDACB01 SETB 1 08350048 .T001350 AIF (NOT(&WAITX AND &NWAITX)).T001400 @ZA07549 08400048 IDAERMAC 8,OPTCD,WAITX,NWAITX @ZA07549 08480148 &IDACB01 SETB 1 @ZA07549 08500048 .T001400 AIF (NOT(&FKS AND &GEN)).T001500 08550038 IDAERMAC 8,OPTCD,FKS,GEN 08600038 &IDACB01 SETB 1 08650038 .T001500 AIF (NOT(&MVE AND &LOC)).T001600 X03004 08700038 IDAERMAC 8,OPTCD,MVE,LOC 08750038 &IDACB01 SETB 1 08800038 .T001600 AIF (NOT(&CA AND &CS)).T001800 @Z40BHUC 08850038 IDAERMAC 8,OPTCD,CA,CS X03004 08900038 &IDACB01 SETB 1 X03004 08950038 .T001800 AIF (NOT(&RELEASE AND &PASS)).T001900 X03004 09150038 IDAERMAC 8,OPTCD,RELEASE,PASS X03004 09200038 &IDACB01 SETB 1 X03004 09250038 .T001900 AIF (NOT(&NERASE AND &EAU)).T002000 X03004 09300038 IDAERMAC 8,OPTCD,NERASE,EAU X03004 09350038 &IDACB01 SETB 1 X03004 09400038 .T002000 AIF (NOT(&NERASE AND &ERASE)).T002100 X03004 09450038 IDAERMAC 8,OPTCD,NERASE,ERASE X03004 09500038 &IDACB01 SETB 1 X03004 09550038 .T002100 AIF (NOT(&EAU AND &ERASE)).T002200 X03004 09600038 IDAERMAC 8,OPTCD,EAU,ERASE X03004 09650038 &IDACB01 SETB 1 X03004 09700038 .T002200 AIF (NOT(&SPEC AND &ANY)).T002300 X03004 09750038 IDAERMAC 8,OPTCD,SPEC,ANY X03004 09800038 &IDACB01 SETB 1 X03004 09850038 .T002300 AIF (NOT(&NCONV AND &CONV)).T002400 X03004 09900038 IDAERMAC 8,OPTCD,NCONV,CONV X03004 09950038 &IDACB01 SETB 1 X03004 10000038 .T002400 AIF (NOT(&LBT AND &LBM)).T002500 X03004 10050038 IDAERMAC 8,OPTCD,LBT,LBM X03004 10100038 &IDACB01 SETB 1 X03004 10150038 .T002500 AIF (NOT(&LBT AND &BLK)).T002600 X03004 10200038 IDAERMAC 8,OPTCD,LBT,BLK X03004 10250038 &IDACB01 SETB 1 X03004 10300038 .T002600 AIF (NOT(&LBM AND &BLK)).T002700 X03004 10350038 IDAERMAC 8,OPTCD,LBM,BLK X03004 10400038 &IDACB01 SETB 1 X03004 10450038 .T002700 AIF (NOT(&COND AND &UNCOND)).T002800 X03004 10500038 IDAERMAC 8,OPTCD,COND,UNCOND X03004 10550038 &IDACB01 SETB 1 X03004 10600038 .T002800 AIF (NOT(&COND AND &LOCK)).T002900 X03004 10650038 IDAERMAC 8,OPTCD,COND,LOCK X03004 10700038 &IDACB01 SETB 1 X03004 10750038 .T002900 AIF (NOT(&UNCOND AND &LOCK)).T003000 X03004 10800038 IDAERMAC 8,OPTCD,UNCOND,LOCK X03004 10850038 &IDACB01 SETB 1 X03004 10900038 .T003000 AIF (NOT(&LGONMSG AND &DEVCHAR)).T003100 X03004 10950038 IDAERMAC 8,OPTCD,LOGONMSG,DEVCHAR X03004 11000038 &IDACB01 SETB 1 X03004 11050038 .T003100 AIF (NOT(&LGONMSG AND &TERMS)).T003200 X03004 11100038 IDAERMAC 8,OPTCD,LOGONMSG,TERMS X03004 11150038 &IDACB01 SETB 1 X03004 11200038 .T003200 AIF (NOT(&LGONMSG AND &APPSTAT)).T003300 X03004 11250038 IDAERMAC 8,OPTCD,LOGONMSG,APPSTAT X03004 11300038 &IDACB01 SETB 1 X03004 11350038 .T003300 AIF (NOT(&LGONMSG AND &COUNTS)).T003400 X03004 11400038 IDAERMAC 8,OPTCD,LOGONMSG,COUNTS X03004 11450038 &IDACB01 SETB 1 X03004 11500038 .T003400 AIF (NOT(&LGONMSG AND &RNNAME)).T003500 X03004 11550038 IDAERMAC 8,OPTCD,LOGONMSG,RNNAME X03004 11600038 &IDACB01 SETB 1 X03004 11650038 .T003500 AIF (NOT(&LGONMSG AND &CIDXLAT)).T003600 X03004 11700038 IDAERMAC 8,OPTCD,LOGONMSG,CIDXLATE X03004 11750038 &IDACB01 SETB 1 X03004 11800038 .T003600 AIF (NOT(&LGONMSG AND &TOPLGON)).T003700 X03004 11850038 IDAERMAC 8,OPTCD,LOGONMSG,TOPLOGON X03004 11900038 &IDACB01 SETB 1 X03004 11950038 .T003700 AIF (NOT(&LGONMSG AND &BSCID)).T003800 X03004 12000038 IDAERMAC 8,OPTCD,LOGONMSG,BSCID X03004 12050038 &IDACB01 SETB 1 X03004 12100038 .T003800 AIF (NOT(&LGONMSG AND &DISPLAY)).T003900 X03004 12150038 IDAERMAC 8,OPTCD,LOGONMSG,DISPLAY X03004 12200038 &IDACB01 SETB 1 X03004 12250038 .T003900 AIF (NOT(&LGONMSG AND &SESSPRM)).T003930 @G40AKSL 12300000 IDAERMAC 8,OPTCD,LOGONMSG,SESSPARM @ZA07555 12304000 &IDACB01 SETB 1 @ZA07555 12308000 .T003930 AIF (NOT(&LGONMSG AND &SESSKEY)).T003950 @G40AKSL 12312000 IDAERMAC 8,OPTCD,LOGONMSG,SESSKEY @G40AKSL 12316000 &IDACB01 SETB 1 @G40AKSL 12320000 .T003950 AIF (NOT(&DEVCHAR AND &TERMS)).T004000 @ZA07555 12330038 IDAERMAC 8,OPTCD,DEVCHAR,TERMS X03004 12350038 &IDACB01 SETB 1 X03004 12400038 .T004000 AIF (NOT(&DEVCHAR AND &APPSTAT)).T004100 X03004 12450038 IDAERMAC 8,OPTCD,DEVCHAR,APPSTAT X03004 12500038 &IDACB01 SETB 1 X03004 12550038 .T004100 AIF (NOT(&DEVCHAR AND &COUNTS)).T004200 X03004 12600038 IDAERMAC 8,OPTCD,DEVCHAR,COUNTS X03004 12650038 &IDACB01 SETB 1 X03004 12700038 .T004200 AIF (NOT(&DEVCHAR AND &RNNAME)).T004300 X03004 12750038 IDAERMAC 8,OPTCD,DEVCHAR,RNNAME X03004 12800038 &IDACB01 SETB 1 X03004 12850038 .T004300 AIF (NOT(&DEVCHAR AND &CIDXLAT)).T004400 X03004 12900038 IDAERMAC 8,OPTCD,DEVCHAR,CIDXLATE X03004 12950038 &IDACB01 SETB 1 X03004 13000038 .T004400 AIF (NOT(&DEVCHAR AND &TOPLGON)).T004500 X03004 13050038 IDAERMAC 8,OPTCD,DEVCHAR,TOPLOGON X03004 13100038 &IDACB01 SETB 1 X03004 13150038 .T004500 AIF (NOT(&DEVCHAR AND &BSCID)).T004600 X03004 13200038 IDAERMAC 8,OPTCD,DEVCHAR,BSCID X03004 13250038 &IDACB01 SETB 1 X03004 13300038 .T004600 AIF (NOT(&DEVCHAR AND &DISPLAY)).T004650 @ZA07555 13350038 IDAERMAC 8,OPTCD,DEVCHAR,DISPLAY X03004 13370038 &IDACB01 SETB 1 X03004 13390038 .T004650 AIF (NOT(&DEVCHAR AND &SESSPRM)).T004670 @G40AKSL 13410000 IDAERMAC 8,OPTCD,DEVCHAR,SESSPARM @ZA07555 13420000 &IDACB01 SETB 1 @ZA07555 13430000 .T004670 AIF (NOT(&DEVCHAR AND &SESSKEY)).T004700 @G40AKSL 13440000 IDAERMAC 8,OPTCD,DEVCHAR,SESSKEY @G40AKSL 13450000 &IDACB01 SETB 1 @G40AKSL 13460000 .T004700 AIF (NOT(&TERMS AND &APPSTAT)).T004800 X03004 13500038 IDAERMAC 8,OPTCD,TERMS,APPSTAT X03004 13550038 &IDACB01 SETB 1 X03004 13600038 .T004800 AIF (NOT(&TERMS AND &COUNTS)).T004900 X03004 13650038 IDAERMAC 8,OPTCD,TERMS,COUNTS X03004 13700038 &IDACB01 SETB 1 X03004 13750038 .T004900 AIF (NOT(&TERMS AND &RNNAME)).T005000 X03004 13800038 IDAERMAC 8,OPTCD,TERMS,RNNAME X03004 13850038 &IDACB01 SETB 1 X03004 13900038 .T005000 AIF (NOT(&TERMS AND &CIDXLAT)).T005100 X03004 13950038 IDAERMAC 8,OPTCD,TERMS,CIDXLATE X03004 14000038 &IDACB01 SETB 1 X03004 14050038 .T005100 AIF (NOT(&TERMS AND &TOPLGON)).T005200 X03004 14100038 IDAERMAC 8,OPTCD,TERMS,TOPLOGON X03004 14150038 &IDACB01 SETB 1 X03004 14200038 .T005200 AIF (NOT(&TERMS AND &BSCID)).T005300 X03004 14250038 IDAERMAC 8,OPTCD,TERMS,BSCID X03004 14300038 &IDACB01 SETB 1 X03004 14350038 .T005300 AIF (NOT(&TERMS AND &DISPLAY)).T005350 @ZA07555 14400038 IDAERMAC 8,OPTCD,TERMS,APPSTAT X03004 14420038 &IDACB01 SETB 1 X03004 14440038 .T005350 AIF (NOT(&TERMS AND &SESSPRM)).T005370 @G40AKSL 14460000 IDAERMAC 8,OPTCD,TERMS,SESSPARM @ZA07555 14470000 &IDACB01 SETB 1 @ZA07555 14480000 .T005370 AIF (NOT(&TERMS AND &SESSKEY)).T005400 @G40AKSL 14490000 IDAERMAC 8,OPTCD,TERMS,SESSKEY @G40AKSL 14500000 &IDACB01 SETB 1 @G40AKSL 14510000 .T005400 AIF (NOT(&APPSTAT AND &COUNTS)).T005500 X03004 14550038 IDAERMAC 8,OPTCD,APPSTAT,COUNTS X03004 14600038 &IDACB01 SETB 1 X03004 14650038 .T005500 AIF (NOT(&APPSTAT AND &RNNAME)).T005600 X03004 14700038 IDAERMAC 8,OPTCD,APPSTAT,RNNAME X03004 14750038 &IDACB01 SETB 1 X03004 14800038 .T005600 AIF (NOT(&APPSTAT AND &CIDXLAT)).T005700 X03004 14850038 IDAERMAC 8,OPTCD,APPSTAT,CIDXLATE X03004 14900038 &IDACB01 SETB 1 X03004 14950038 .T005700 AIF (NOT(&APPSTAT AND &TOPLGON)).T005800 X03004 15000038 IDAERMAC 8,OPTCD,APPSTAT,TOPLOGON X03004 15050038 &IDACB01 SETB 1 X03004 15100038 .T005800 AIF (NOT(&APPSTAT AND &BSCID)).T005900 X03004 15150038 IDAERMAC 8,OPTCD,APPSTAT,BSCID X03004 15200038 &IDACB01 SETB 1 X03004 15250038 .T005900 AIF (NOT(&APPSTAT AND &DISPLAY)).T005950 @ZA07555 15300038 IDAERMAC 8,OPTCD,APPSTAT,DISPLAY X03004 15320038 &IDACB01 SETB 1 X03004 15340038 .T005950 AIF (NOT(&APPSTAT AND &SESSPRM)).T005960 @G40AKSL 15360000 IDAERMAC 8,OPTCD,APPSTAT,SESSPARM @ZA07555 15370000 &IDACB01 SETB 1 @ZA07555 15380000 .T005960 AIF (NOT(&APPSTAT AND &SESSKEY)).T006000 @G40AKSL 15390000 IDAERMAC 8,OPTCD,APPSTAT,SESSKEY @G40AKSL 15400000 &IDACB01 SETB 1 @G40AKSL 15410000 .T006000 AIF (NOT(&COUNTS AND &RNNAME)).T006100 X03004 15450038 IDAERMAC 8,OPTCD,COUNTS,RNNAME X03004 15500038 &IDACB01 SETB 1 X03004 15550038 .T006100 AIF (NOT(&COUNTS AND &CIDXLAT)).T006200 X03004 15600038 IDAERMAC 8,OPTCD,COUNTS,CIDXLATE X03004 15650038 &IDACB01 SETB 1 X03004 15700038 .T006200 AIF (NOT(&COUNTS AND &TOPLGON)).T006300 X03004 15750038 IDAERMAC 8,OPTCD,COUNTS,TOPLOGON X03004 15800038 &IDACB01 SETB 1 X03004 15850038 .T006300 AIF (NOT(&COUNTS AND &BSCID)).T006400 X03004 15900038 IDAERMAC 8,OPTCD,COUNTS,BSCID X03004 15950038 &IDACB01 SETB 1 X03004 16000038 .T006400 AIF (NOT(&COUNTS AND &DISPLAY)).T006450 @ZA07555 16050038 IDAERMAC 8,OPTCD,COUNTS,DISPLAY X03004 16070038 &IDACB01 SETB 1 X03004 16090038 .T006450 AIF (NOT(&COUNTS AND &SESSPRM)).T006470 @G40AKSL 16110000 IDAERMAC 8,OPTCD,COUNTS,SESSPARM @ZA07555 16120000 &IDACB01 SETB 1 @ZA07555 16130000 .T006470 AIF (NOT(&COUNTS AND &SESSKEY)).T006500 @G40AKSL 16140000 IDAERMAC 8,OPTCD,COUNTS,SESSKEY @G40AKSL 16150000 &IDACB01 SETB 1 @G40AKSL 16160000 .T006500 AIF (NOT(&RNNAME AND &CIDXLAT)).T006600 X03004 16200038 IDAERMAC 8,OPTCD,RNNAME,CIDXLATE X03004 16250038 &IDACB01 SETB 1 X03004 16300038 .T006600 AIF (NOT(&RNNAME AND &TOPLGON)).T006700 X03004 16350038 IDAERMAC 8,OPTCD,RNNAME,TOPLOGON X03004 16400038 &IDACB01 SETB 1 X03004 16450038 .T006700 AIF (NOT(&RNNAME AND &BSCID)).T006800 X03004 16500038 IDAERMAC 8,OPTCD,RNNAME,BSCID X03004 16550038 &IDACB01 SETB 1 X03004 16600038 .T006800 AIF (NOT(&RNNAME AND &DISPLAY)).T006850 @ZA07555 16650038 IDAERMAC 8,OPTCD,RNNAME,DISPLAY X03004 16670038 &IDACB01 SETB 1 X03004 16690038 .T006850 AIF (NOT(&RNNAME AND &SESSPRM)).T006870 @G40AKSL 16710000 IDAERMAC 8,OPTCD,RNNAME,SESSPARM @ZA07555 16720000 &IDACB01 SETB 1 @ZA07555 16730000 .T006870 AIF (NOT(&RNNAME AND &SESSKEY)).T006900 @G40AKSL 16740000 IDAERMAC 8,OPTCD,RNNAME,SESSKEY @G40AKSL 16750000 &IDACB01 SETB 1 @G40AKSL 16760000 .T006900 AIF (NOT(&CIDXLAT AND &TOPLGON)).T007000 X03004 16800038 IDAERMAC 8,OPTCD,CIDXLATE,TOPLOGON X03004 16850038 &IDACB01 SETB 1 X03004 16900038 .T007000 AIF (NOT(&CIDXLAT AND &BSCID)).T007100 X03004 16950038 IDAERMAC 8,OPTCD,CIDXLATE,BSCID X03004 17000038 &IDACB01 SETB 1 X03004 17050038 .T007100 AIF (NOT(&CIDXLAT AND &DISPLAY)).T007150 @ZA07555 17100038 IDAERMAC 8,OPTCD,CIDXLATE,DISPLAY X03004 17120038 &IDACB01 SETB 1 X03004 17140038 .T007150 AIF (NOT(&CIDXLAT AND &SESSPRM)).T007170 @G40AKSL 17160000 IDAERMAC 8,OPTCD,CIDXLATE,SESSPARM @ZA07555 17168000 &IDACB01 SETB 1 @ZA07555 17176000 .T007170 AIF (NOT(&CIDXLAT AND &SESSKEY)).T007200 @G40AKSL 17184000 IDAERMAC 8,OPTCD,CIDXLATE,SESSKEY @G40AKSL 17192000 &IDACB01 SETB 1 @G40AKSL 17200000 .T007200 AIF (NOT(&TOPLGON AND &BSCID)).T007300 X03004 17220038 IDAERMAC 8,OPTCD,TOPLOGON,BSCID X03004 17240038 &IDACB01 SETB 1 X03004 17260038 .T007300 AIF (NOT(&TOPLGON AND &DISPLAY)).T007350 @ZA07555 17280038 IDAERMAC 8,OPTCD,TOPLOGON,DISPLAY X03004 17300038 &IDACB01 SETB 1 X03004 17320038 .T007350 AIF (NOT(&TOPLGON AND &SESSPRM)).T007370 @G40AKSL 17340000 IDAERMAC 8,OPTCD,TOPLOGON,SESSPARM @ZA07555 17350000 &IDACB01 SETB 1 @ZA07555 17360000 .T007370 AIF (NOT(&TOPLGON AND &SESSKEY)).T007400 @G40AKSL 17370000 IDAERMAC 8,OPTCD,TOPLOGON,SESSKEY @G40AKSL 17380000 &IDACB01 SETB 1 @G40AKSL 17390000 .T007400 AIF (NOT(&BSCID AND &DISPLAY)).T007410 @ZA07555 17400000 IDAERMAC 8,OPTCD,BSCID,DISPLAY X03004 17410000 &IDACB01 SETB 1 X03004 17420000 .T007410 AIF (NOT(&BSCID AND &SESSPRM)).T007415 @G40AKSL 17430000 IDAERMAC 8,OPTCD,BSCID,SESSPARM @ZA07555 17440000 &IDACB01 SETB 1 @ZA07555 17450000 .T007415 AIF (NOT(&BSCID AND &SESSKEY)).T007420 @G40AKSL 17460000 IDAERMAC 8,OPTCD,BSCID,SESSKEY @G40AKSL 17470000 &IDACB01 SETB 1 @G40AKSL 17480000 .T007420 AIF (NOT(&DISPLAY AND &SESSPRM)).T007450 @G40AKSL 17490000 IDAERMAC 8,OPTCD,DISPLAY,SESSPARM @ZA07555 17500000 &IDACB01 SETB 1 @ZA07555 17510000 .T007450 AIF (NOT(&DISPLAY AND &SESSKEY)).T007470 @G40AKSL 17520000 IDAERMAC 8,OPTCD,DISPLAY,SESSKEY @G40AKSL 17530000 &IDACB01 SETB 1 @G40AKSL 17540000 .T007470 AIF (NOT(&SESSPRM AND &SESSKEY)).T007500 @G40AKSL 17550000 IDAERMAC 8,OPTCD,SESSPARM,SESSKEY @G40AKSL 17560000 &IDACB01 SETB 1 @G40AKSL 17570000 .T007500 AIF (NOT(&RELRQ AND &NRELRQ)).T007600 X03004 17700038 IDAERMAC 8,OPTCD,RELRQ,NRELRQ X03004 17750038 &IDACB01 SETB 1 X03004 17800038 .T007600 AIF (NOT(&Q AND &NQ)).T007700 X03004 17850038 IDAERMAC 8,OPTCD,Q,NQ X03004 17900038 &IDACB01 SETB 1 X03004 17950038 .T007700 AIF (NOT(&PEND AND &SESSION)).T007800 X03004 18000038 IDAERMAC 8,OPTCD,PEND,SESSION X03004 18050038 &IDACB01 SETB 1 X03004 18100038 .T007800 AIF (NOT(&PEND AND &ACTIVE)).T007900 X03004 18150038 IDAERMAC 8,OPTCD,PEND,ACTIVE X03004 18200038 &IDACB01 SETB 1 X03004 18250038 .T007900 AIF (NOT(&PEND AND &UNCONDL)).T008000 X03004 18300038 IDAERMAC 8,OPTCD,PEND,UNCONDL X03004 18350038 &IDACB01 SETB 1 X03004 18400038 .T008000 AIF (NOT(&SESSION AND &ACTIVE)).T008100 X03004 18450038 IDAERMAC 8,OPTCD,SESSION,ACTIVE X03004 18500038 &IDACB01 SETB 1 X03004 18550038 .T008100 AIF (NOT(&SESSION AND &UNCONDL)).T008200 X03004 18600038 IDAERMAC 8,OPTCD,SESSION,UNCONDL X03004 18650038 &IDACB01 SETB 1 X03004 18700038 .T008200 AIF (NOT(&ACTIVE AND &UNCONDL)).T008300 X03004 18750038 IDAERMAC 8,OPTCD,ACTIVE,UNCONDL X03004 18800038 &IDACB01 SETB 1 X03004 18850038 .T008300 AIF (NOT(&QUIESCE AND &START)).T008400 X03004 18900038 IDAERMAC 8,OPTCD,QUIESCE,START X03004 18950038 &IDACB01 SETB 1 X03004 19000038 .T008400 AIF (NOT(&QUIESCE AND &STOP)).T008500 X03004 19050038 IDAERMAC 8,OPTCD,QUIESCE,STOP X03004 19100038 &IDACB01 SETB 1 X03004 19150038 .T008500 AIF (NOT(&START AND &STOP)).T008600 X03004 19200038 IDAERMAC 8,OPTCD,START,STOP X03004 19250038 &IDACB01 SETB 1 X03004 19300038 .T008600 AIF (NOT(&ACCEPT AND &ACQUIRE)).T008900 @Z40BHUC 19350038 IDAERMAC 8,OPTCD,ACCEPT,ACQUIRE X03004 19400038 &IDACB01 SETB 1 X03004 19450038 .T008900 AIF (NOT(&CONALL AND &CONANY)).T009100 @Z40BHUC 19800038 IDAERMAC 8,OPTCD,CONALL,CONANY X03004 19850038 &IDACB01 SETB 1 X03004 19900038 .T009100 AIF (NOT(&KEEP AND &TRUNC)).T009200 X3004BS 20100038 IDAERMAC 8,OPTCD,KEEP,TRUNC X3004BS 20150038 &IDACB01 SETB 1 X3004BS 20200038 .T009200 AIF (NOT(&KEEP AND &NIBTK)).T009300 X3004BS 20250038 IDAERMAC 8,OPTCD,KEEP,NIBTK X3004BS 20300038 &IDACB01 SETB 1 X3004BS 20350038 .T009300 AIF (NOT(&NIBTK AND &TRUNC)).T009700 @Z40BHUC 20400038 IDAERMAC 8,OPTCD,NIBTK,TRUNC X3004BS 20450038 &IDACB01 SETB 1 X3004BS 20500038 .T009700 AIF (NOT(&FMHDR AND &NFMHDR)).T009800 X04SVHS 21000038 .* CHK FOR MUTUALLY OPTS X03004HS 21050038 IDAERMAC 8,OPTCD,FMHDR,NFMHDR X03004HS 21100038 &IDACB01 SETB 1 X03004HS 21150038 .T009800 ANOP X04SVHS 21200038 AIF (NOT(&BWD AND &FWD)).T009900 CHK FOR MUTUALLY X04SVHS 21250038 .* EXCLUSIVE OPTIONS X04SVHS 21300038 IDAERMAC 8,OPTCD,FWD,BWD X04SVHS 21350038 &IDACB01 SETB 1 SET ERROR SWITCH X04SVHS 21400038 .T009900 ANOP X04SVHS 21450038 AIF (NOT(&ARD AND &LRD)).T010000 CHK FOR MUTUALLY X04SVHS 21500038 .* EXCLUSIVE OPTIONS X04SVHS 21550038 IDAERMAC 8,OPTCD,ARD,LRD X04SVHS 21600038 &IDACB01 SETB 1 SET ERROR SWITCH X04SVHS 21650038 .T010000 ANOP X04SVHS 21700038 AIF ('&CALLER' EQ 'RPL').T010100 X04SVHS 21750038 .* IF CALLED BY RPL, THEN GLOBALS MUST BE SET FOR 21800038 .* RPL TO GENERATE CODE FROM IN THE FORM OF DC'S 21850038 &IDAVALC(&IDAENO) SETC '&KEY&ADR&CNV&SEQ&DIR&SKP&SYN&ASY&NUP&UPD&NSP&KE*23550038 Q&KGE&FKS&GEN&MVE&LOC&FWD&BWD&ARD&LRD.0&WAITX&NWAITX.000*23600048 00000' @ZA07549 23620048 &IDAOPT2 SETC '&CA&CS.00&RELEASE&PASS&NERASE&EAU&ERASE&SPEC&ANY&NCONV&*23650038 CONV&LBT&LBM&BLK&COND&UNCOND&LOCK.00&LGONMSG&DEVCHAR&TER*23700038 MS&APPSTAT&COUNTS&RNNAME&CIDXLAT&TOPLGON' @Z40BHUC 23750038 &IDAOPT2 SETC '&IDAOPT2&BSCID&DISPLAY&RELRQ' X03004 23800038 &IDAOPT3 SETC '&NRELRQ&Q&NQ&PEND&SESSION&ACTIVE&UNCONDL&QUIESCE&START&*23850038 STOP&ACCEPT&ACQUIRE.0&CONALL&CONANY.00&KEEP&TRUNC&NIBTK.*23900038 00&SESSKEY&FMHDR&NFMHDR&SESSPRM.000000' @G40AKSL 23950000 MEXIT 24010038 .T010100 ANOP X04SVHS 24050038 AIF ('&CALLER' NE 'RPL').T011600 X04SVHS 24060038 .* AT THIS POINT EITHER IDACBOPT WAS CALLED BY RPL, 24070038 .* OPTCD IS UNSPECIFIED, OR BOTH. IF CALLED BY RPL 24080038 .* SET ANY UNSPECIFIED DEFAULTS. 24100038 .* DEFAULTS FOR CBM WILL BE SET AT EXECUTE TIME 24102038 .* 24104038 &KEY SETB (NOT(&ADR OR &CNV) OR &KEY) X04SVHS 24114038 .* IF NOT ADR, OR CNV, SET KEY AS DEFAULT 24150038 &SEQ SETB (NOT(&DIR OR &SKP) OR &SEQ) X04SVHS 24200038 .* IF NOT DIR, OR SKP, SET SEQ AS DEFAULT 24300038 AIF ('&AM' NE 'VTAM').T011500 WAS VTAM SPECIFIED X04SVHS 24450038 .* SET VTAM DEFAULTS 24460038 &ACCEPT SETB (NOT(&ACQUIRE) OR &ACCEPT) @Z40BHUC 24500038 .* IF NOT ACQUIRE, SET ACCEPT DEFAULT 24550038 &Q SETB (NOT(&NQ) OR &Q) X04SVHS 24660038 .* IF NOT NQ SET Q AS DEFAULT 24700038 &RELRQ SETB (NOT(&NRELRQ) OR &RELRQ) X04SVHS 24760038 .* IF NOT NRELRQ SET RELRQ DEFAULT 24810038 &NERASE SETB (NOT(&EAU OR &ERASE) OR &NERASE) X04SVHS 24860038 .* IF NOT EAU OR ERASE, SET NERASE DEFAULT 24900038 &LBT SETB (NOT(&BLK OR &LBM) OR &LBT) X04SVHS 24960038 .* IF NOT BLK OR LBM, SET LBT DEFAULT 25000038 &COND SETB (NOT(&UNCOND OR &LOCK) OR &COND) X04SVHS 25060038 .* IF NOT UNCOND OR LOCK, SET COND DEFAULT 25100038 &CONALL SETB (NOT(&CONANY) OR &CONALL) X04SVHS 25160038 .* IF NOT CONANY SET CONALL DEFAULT 25200038 &QUIESCE SETB (NOT(&START OR &STOP) OR &QUIESCE) X04SVHS 25300038 .* IF NOT START OR STOP, SET QUIESCE DEFAULT 25350038 &LGONMSG SETB (NOT(&DEVCHAR OR &TERMS OR &APPSTAT OR &COUNTS OR &RNNAM*25450038 E OR &CIDXLAT OR &TOPLGON OR &BSCID OR &DISPLAY OR &SESS*25460038 PRM OR &SESSKEY) OR &LGONMSG) @G40AKCM 25470000 .* IF NONE OF ABOVE, LOGONMSG IS DEFAULT 25480038 &PEND SETB (NOT(&SESSION OR &ACTIVE OR &UNCONDL) OR &PEND) X04SVHS 25560038 .* IF NONE OF ABOVE, SET PEND DEFAULT 25600038 &NIBTK SETB (NOT(&TRUNC OR &KEEP) OR &NIBTK) X04SVHS 25700038 .* IF NOT KEEP OR TRUNC SET NIBTK DEFAULT 25750038 .T011500 ANOP X3004BH 26000038 .* SET GLOBALS TO BE ASSEMBLED BY DECLARATIVE AS CONSTANTS 26050038 &IDAOP1 SETC '&LOC&DIR&SEQ&SKP&ASY&KGE&GEN' OPTCD BYTE 1 X04SVHS 26100038 &IDAOP2 SETC '&KEY&ADR&CNV&BWD&LRD&WAITX&UPD&NSP' @ZA07549 26150048 .* OPTCD BYTE 2 @ZA07549 26160048 AIF ('&AM' NE 'VTAM').T011600 X04SVHS 26170038 .* IF NOT VTAM, BYPASS SETTING VTAM OPTION BYTES 26180038 &IDAOP5 SETC '&CS.0&PASS&NERASE&EAU&ERASE&ANY&CONV' @Z40BHUC 26200038 .* OPTCD BYTE 5 X04SVHS 26250038 &IDAOP6 SETC '&BLK&LBM&LBT&COND&UNCOND&LOCK.00' OPTCD BYTE 6 X04SVHS 26300038 &IDAOP7 SETC '&CONALL&CONANY.0&Q.0&RELRQ.00' OPTCD BYTE 7 X04SVHS 26350038 &IDAOP8 SETC '&ACQUIRE&ACCEPT.0&PEND&SESSION&ACTIVE&UNCONDL.0' 26400038 .* OPTCD BYTE 8 @Z40BHUC 26450038 &IDAOP9 SETC '&LGONMSG&DEVCHAR&TERMS&COUNTS&APPSTAT&RNNAME&CIDXLAT&TO*26500038 PLGON' OPTCD BYTE 9 X04SVHS 26550038 &IDAOPA SETC '&BSCID&DISPLAY&SESSPRM&SESSKEY.0000' 26600048 .* OPTCD BYTE 10 @G40AKSL 26620000 &IDAOPB SETC '&QUIESCE&START&STOP.00000' OPTCD BYTE 11 X04SVHS 26650038 &IDAOPC SETC '0&KEEP&TRUNC&NIBTK.000&FMHDR' @Z40BHUC 26700038 .* OPTCD BYTE 12 X04SVHS 26750038 .T011600 ANOP X04SVHS 26800038 MEND 26850038