MACRO 00050040 IDAVSOPT &OPTCD=,&AM=,&MF=,&CALLER= @ZA34940 00100040 .* @ZA34940 00140040 .* CHANGE LEVEL = 0 @ZA34940 00180040 .* DATE OF LAST CHANGE = 5 OCT 78 ( 78*278 ) @ZA34940 00220040 .* @ZA34940 00260040 .* FUNCTION - THIS MACRO PROCESSES THE RPL KEYWORD OPTCD. @ZA34940 00300040 .* IT IS CALLED BY IDAVSRPL. IT VALIDITY CHECKS @ZA34940 00340040 .* THE OPTIONS SPECIFIED @ZA34940 00380040 .* BY THE USER ON GENCB, MODCB, OR TESTCB FOR OPTCD. IT 00420040 .* CHECKS FOR MUTUALLY EXCLUSIVE OPTIONS SPECIFIED AND 00460040 .* ISSUES ERROR MESSAGES VIA IDAVSERR. IF THE @ZA34940 00500040 .* OPTIONS ARE VALID, IDAVSOPT SETS VALUES IN @ZA34940 00540040 .* VARIOUS GLOBAL ARRAYS @ZA34940 00580040 .* TO BE USED BY IDACB2 TO BUILD A PARAMETER LIST OF 00620040 .* ARGUMENT CONTROL ENTRIES FOR THE CONTROL BLOCK 00660040 .* MANIPULATION MODULE TO BE USED AT EXECUTE TIME. 00700040 .* IT CALLS IDAVSCB3 TO SET THE ELEMENT TYPE CODE @ZA34940 00740040 .* AND THE KEYWORD TYPE CODE FOR OPTCD. @ZA34940 00780040 .* 00820040 .* IT IS ALSO CALLED BY THE RPL DECLARATIVE MACRO VIA 00860040 .* IDAVSRPL. WHEN CALLED BY THE DECLARATIVE MACRO, @ZA34940 00900040 .* DIFFERENT GLOBALS ARE SET THAN THASE USED BY THE CBMM. 01150040 .* THEREFORE, THE BITS SET IN THESE GLOBALS MUST BE 01200040 .* IDENTICAL TO THE WAY THEY WILL APPEAR WHEN THE 01250040 .* CONTROL BLOCK IS GENERATED. 01300040 .* 01350040 .* 01400040 .* 01450040 .* CHANGE ACTIVITY 01500040 .* SESSPARM MUTUALLY EXCLUSIVE WITH LOGONMSG DEFAULT @ZA07555 01550040 .* CBMM SPLIT SUPPORT @ZA34940 01570040 .* 01600040 .* GLOBALS 01650040 GBLB &IDACB01 ERROR INDICATOR 01700040 GBLA &IDAENO NUMBER OF ELEMENTS 01750040 GBLC &IDAVALC(50) ELEMENT CHARACTER VALUE ARRAY 01800040 GBLA &IDAELEN(50) ELEMENT FIELD LENGTH ARRAY 01850040 GBLC &IDAOPT2,&IDAOPT3 BIT STRING EXTENSIONS 01900040 .* THE FOLLOWING GLOBALS ARE USED TO PASS THE VALUES OF 01950040 .* THE OPTCD BYTES BACK TO THE DECLARATIVE MACRO RPL. 02000040 GBLC &IDAOP1,&IDAOP2,&IDAOP5,&IDAOP6,&IDAOP7,&IDAOP8 X04SVHS 02050040 GBLC &IDAOP9,&IDAOPA,&IDAOPB,&IDAOPC 02100040 .* LOCALS 02150040 LCLA &I,&A,&B,&C,&D,&ERR WORK VARIABLES X04SVHS 02200040 LCLB &KEY,&ADR,&CNV,&SEQ,&DIR,&SKP OPTCD CODES 02250040 LCLB &SYN,&ASY,&NUP,&UPD,&NSP,&KEQ OPTCD CODES 02300040 LCLB &KGE,&FKS,&GEN,&MVE,&LOC OPTCD CODES 02350040 LCLB &CA,&CS,&RELEASE,&PASS OPTCD CODES @Z40BHUC 02400040 LCLB &WAITX,&NWAITX OPTCD CODES @ZA07549 02450040 LCLB &NERASE,&EAU,&ERASE,&SPEC,&ANY OPTCD CODES X03004 02500040 LCLB &NCONV,&CONV,&LBT,&BLK,&COND OPTCD CODES X03004 02550040 LCLB &UNCOND,&LOCK,&LGONMSG,&DEVCHAR OPTCD CODES X03004 02600040 LCLB &TERMS,&APPSTAT,&COUNTS,&RNNAME OPTCD CODES X03004 02650040 LCLB &CIDXLAT,&TOPLGON,&BSCID,&LBM OPTCD CODES X03004 02700040 LCLB &DISPLAY,&RELRQ,&NRELRQ,&Q,&NQ OPTCD CODES X03004 02750040 LCLB &PEND,&SESSION,&ACTIVE,&UNCONDL OPTCD CODES X03004 02800040 LCLB &QUIESCE,&START,&STOP,&ACCEPT OPTCD CODES X03004 02850040 LCLB &ACQUIRE,&CONALL,&CONANY OPTCD CODES @Z40BHUC 02900040 LCLB &KEEP,&TRUNC OPTCD CODES @Z40BHUC 02950040 LCLB &NIBTK OPTCD CODES @Z40BHUC 03000040 LCLB &FMHDR,&NFMHDR OPTCD CODE X03004HS 03050040 LCLB &FWD,&BWD,&ARD,&LRD OPTCD CODES X04SVHS 03100040 LCLB &SESSPRM OPTCD CODE @Z40BHUC 03150040 LCLB &SESSKEY OPTCD CODE @G40AKSL 03200040 .* 03250040 AIF ('&OPTCD' EQ '').T010100 CHECK FOR NULL PARAM X04SVHS 03300040 AIF ('&CALLER' EQ 'RPL').T000100 X04SVHS 03350040 .* IF CALLED BY RPL DECLARATIVE, BYPASS @ZA34940 03400040 .* CALL OF IDAVSCB3 @ZA34940 03440040 IDAVSCB3 ARG=&OPTCD,ARGNAME=OPTCD,KWTC=X'34',MF=&MF, @ZA34940*03480040 BIT=YES,INDRECT=YES @ZA34940 03520040 &IDAELEN(&IDAENO) SETA 12 X04SVHS 03600040 AIF ('&OPTCD(1)' EQ '*').T011600 X04SVHS 03650040 .T000100 ANOP 03700040 &I SETA &I+1 BUMP INDEX VARIABLE 03750040 AIF (&I GT N'&OPTCD).T000300 HAVE ALL OPTIONS BEEN CHECKED 03800040 &KEY SETB ('&OPTCD(&I)' EQ 'KEY' OR &KEY) 03850040 &ADR SETB ('&OPTCD(&I)' EQ 'ADR' OR &ADR) 03900040 &CNV SETB ('&OPTCD(&I)' EQ 'CNV' OR &CNV) 03950040 &SEQ SETB ('&OPTCD(&I)' EQ 'SEQ' OR &SEQ) 04000040 &DIR SETB ('&OPTCD(&I)' EQ 'DIR' OR &DIR) 04050040 &SKP SETB ('&OPTCD(&I)' EQ 'SKP' OR &SKP) 04100040 &SYN SETB ('&OPTCD(&I)' EQ 'SYN' OR &SYN) 04150040 &ASY SETB ('&OPTCD(&I)' EQ 'ASY' OR &ASY) 04200040 &NUP SETB ('&OPTCD(&I)' EQ 'NUP' OR &NUP) 04250040 &UPD SETB ('&OPTCD(&I)' EQ 'UPD' OR &UPD) 04300040 &NSP SETB ('&OPTCD(&I)' EQ 'NSP' OR &NSP) 04350040 &KEQ SETB ('&OPTCD(&I)' EQ 'KEQ' OR &KEQ) 04400040 &KGE SETB ('&OPTCD(&I)' EQ 'KGE' OR &KGE) 04450040 &FKS SETB ('&OPTCD(&I)' EQ 'FKS' OR &FKS) 04500040 &GEN SETB ('&OPTCD(&I)' EQ 'GEN' OR &GEN) 04550040 &MVE SETB ('&OPTCD(&I)' EQ 'MVE' OR &MVE) 04600040 &LOC SETB ('&OPTCD(&I)' EQ 'LOC' OR &LOC) 04650040 &FWD SETB ('&OPTCD(&I)' EQ 'FWD' OR &FWD) X04SVHS 04700040 &BWD SETB ('&OPTCD(&I)' EQ 'BWD' OR &BWD) X04SVHS 04750040 &ARD SETB ('&OPTCD(&I)' EQ 'ARD' OR &ARD) X04SVHS 04800040 &LRD SETB ('&OPTCD(&I)' EQ 'LRD' OR &LRD) X04SVHS 04850040 &WAITX SETB ('&OPTCD(&I)' EQ 'WAITX' OR &WAITX) @ZA07549 04900040 &NWAITX SETB ('&OPTCD(&I)' EQ 'NWAITX' OR &NWAITX) @ZA07549 04950040 &A SETA &KEY+&ADR+&CNV+&SEQ+&DIR+&SKP+&SYN+&ASY+&NUP+&UPD+&NSP+&*05000040 KEQ+&KGE+&FKS+&GEN+&MVE+&LOC+&FWD+&BWD+&ARD+&LRD+&WAITX+*05050040 &NWAITX @ZA07549 05100040 .* &A CONTAINS THE NUMBER OF VSAM OPTIONS SPECIFIED 05150040 .* &B, &C, AND &D CONTAIN THE NUMBER OF VTAM OPTIONS SPEC 05200040 .* &ERR CONTAINS THE NUMBER OF ERRORS 05250040 AIF (&A+&B+&C+&D+&ERR EQ &I).T000100 05300040 .* IF &A+&B+&C+&D+&ERR EQUAL &I, THE LAST OPTION CHECKED 05350040 .* WAS A VALID VSAM OPTION. ELSE CHECK FOR A VALID VTAM 05400040 .* OPTION 05450040 &CA SETB ('&OPTCD(&I)' EQ 'CA' OR &CA) X03004 05500040 &CS SETB ('&OPTCD(&I)' EQ 'CS' OR &CS) X03004 05550040 &RELEASE SETB ('&OPTCD(&I)' EQ 'RELEASE' OR &RELEASE) X03004 05600040 &PASS SETB ('&OPTCD(&I)' EQ 'PASS' OR &PASS) X03004 05650040 &NERASE SETB ('&OPTCD(&I)' EQ 'NERASE' OR &NERASE) X03004 05700040 &EAU SETB ('&OPTCD(&I)' EQ 'EAU' OR &EAU) X03004 05750040 &ERASE SETB ('&OPTCD(&I)' EQ 'ERASE' OR &ERASE) X03004 05800040 &SPEC SETB ('&OPTCD(&I)' EQ 'SPEC' OR &SPEC) X03004 05850040 &ANY SETB ('&OPTCD(&I)' EQ 'ANY' OR &ANY) X03004 05900040 &NCONV SETB ('&OPTCD(&I)' EQ 'NCONV' OR &NCONV) X03004 05950040 &CONV SETB ('&OPTCD(&I)' EQ 'CONV' OR &CONV) X03004 06000040 &LBT SETB ('&OPTCD(&I)' EQ 'LBT' OR &LBT) X03004 06050040 &LBM SETB ('&OPTCD(&I)' EQ 'LBM' OR &LBM) X03004 06100040 &BLK SETB ('&OPTCD(&I)' EQ 'BLK' OR &BLK) X03004 06150040 &COND SETB ('&OPTCD(&I)' EQ 'COND' OR &COND) X03004 06200040 &UNCOND SETB ('&OPTCD(&I)' EQ 'UNCOND' OR &UNCOND) X03004 06250040 &LOCK SETB ('&OPTCD(&I)' EQ 'LOCK' OR &LOCK) X03004 06300040 &LGONMSG SETB ('&OPTCD(&I)' EQ 'LOGONMSG' OR &LGONMSG) X03004 06350040 &DEVCHAR SETB ('&OPTCD(&I)' EQ 'DEVCHAR' OR &DEVCHAR) X03004 06400040 &TERMS SETB ('&OPTCD(&I)' EQ 'TERMS' OR &TERMS) X03004 06450040 &APPSTAT SETB ('&OPTCD(&I)' EQ 'APPSTAT' OR &APPSTAT) X03004 06500040 &COUNTS SETB ('&OPTCD(&I)' EQ 'COUNTS' OR &COUNTS) X03004 06550040 &RNNAME SETB ('&OPTCD(&I)' EQ 'RNNAME' OR &RNNAME) X03004 06600040 &CIDXLAT SETB ('&OPTCD(&I)' EQ 'CIDXLATE' OR &CIDXLAT) X03004 06650040 &TOPLGON SETB ('&OPTCD(&I)' EQ 'TOPLOGON' OR &TOPLGON) X03004 06700040 &BSCID SETB ('&OPTCD(&I)' EQ 'BSCID' OR &BSCID) X03004 06750040 &DISPLAY SETB ('&OPTCD(&I)' EQ 'DISPLAY' OR &DISPLAY) X03004 06800040 &RELRQ SETB ('&OPTCD(&I)' EQ 'RELRQ' OR &RELRQ) X03004 06850040 &NRELRQ SETB ('&OPTCD(&I)' EQ 'NRELRQ' OR &NRELRQ) X03004 06900040 &Q SETB ('&OPTCD(&I)' EQ 'Q' OR &Q) X03004 06950040 &NQ SETB ('&OPTCD(&I)' EQ 'NQ' OR &NQ) X03004 07000040 &PEND SETB ('&OPTCD(&I)' EQ 'PEND' OR &PEND) X03004 07050040 &SESSION SETB ('&OPTCD(&I)' EQ 'SESSION' OR &SESSION) X03004 07100040 &ACTIVE SETB ('&OPTCD(&I)' EQ 'ACTIVE' OR &ACTIVE) X03004 07150040 &UNCONDL SETB ('&OPTCD(&I)' EQ 'UNCONDL' OR &UNCONDL) X03004 07200040 &QUIESCE SETB ('&OPTCD(&I)' EQ 'QUIESCE' OR &QUIESCE) X03004 07250040 &START SETB ('&OPTCD(&I)' EQ 'START' OR &START) X03004 07300040 &STOP SETB ('&OPTCD(&I)' EQ 'STOP' OR &STOP) X03004 07350040 &ACCEPT SETB ('&OPTCD(&I)' EQ 'ACCEPT' OR &ACCEPT) X03004 07400040 &ACQUIRE SETB ('&OPTCD(&I)' EQ 'ACQUIRE' OR &ACQUIRE) X03004 07450040 &CONALL SETB ('&OPTCD(&I)' EQ 'CONALL' OR &CONALL) X03004 07500040 &CONANY SETB ('&OPTCD(&I)' EQ 'CONANY' OR &CONANY) X03004 07550040 &KEEP SETB ('&OPTCD(&I)' EQ 'KEEP' OR &KEEP) X3004BS 07600040 &TRUNC SETB ('&OPTCD(&I)' EQ 'TRUNC' OR &TRUNC) X3004BS 07650040 &NIBTK SETB ('&OPTCD(&I)' EQ 'NIBTK' OR &NIBTK) X3004BS 07700040 &FMHDR SETB ('&OPTCD(&I)' EQ 'FMHDR' OR &FMHDR) X03004HS 07750040 &NFMHDR SETB ('&OPTCD(&I)' EQ 'NFMHDR' OR &NFMHDR) X03004HS 07800040 &SESSPRM SETB ('&OPTCD(&I)' EQ 'SESSPARM' OR &SESSPRM) @Z40BHUC 07850040 &SESSKEY SETB ('&OPTCD(&I)' EQ 'SESSKEY' OR &SESSKEY) @G40AKSL 07900040 &B SETA &CA+&CS+&RELEASE+&PASS+&NERASE+&EAU+&ERASE+&SPEC+&ANY+&N*07950040 CONV+&CONV+&LBT+&LBM+&BLK+&COND+&UNCOND+&LOCK+&LGONMSG+&*08000040 DEVCHAR+&TERMS+&APPSTAT+&COUNTS+&RNNAME+&CIDXLAT 08050040 &C SETA &TOPLGON+&BSCID+&DISPLAY+&RELRQ+&NRELRQ+&Q+&NQ+&PEND+&SE*08100040 SSION+&ACTIVE+&UNCONDL+&QUIESCE+&START+&STOP+&ACCEPT+&AC*08150040 QUIRE+&CONALL+&CONANY+&KEEP 08200040 &D SETA &TRUNC+&NIBTK+&FMHDR+&NFMHDR+&SESSPRM+&SESSKEY 08250040 .* @G40AKSL 08300040 .* &A CONTAINS THE NUMBER OF VSAM OPTIONS SPECIFIED 08350040 .* &B, &C, AND &D CONTAIN THE NUMBER OF VTAM OPTIONS SPEC 08400040 .* &ERR CONTAINS THE NUMBER OF ERRORS 08450040 AIF (&A+&B+&C+&D+&ERR EQ &I).T000200 08500040 .* IF &A+&B+&C+&D+&ERR EQUAL &I, THE LAST OPTION CHECKED 08550040 .* WAS A VALID VTAM OPTION. ELSE IT WAS INVALID OR 08600040 .* DUPLICATED A PREVIOUSLY SPECIFIED OPTION. 08650040 IDAVSERR 5,OPTCD,&OPTCD(&I) @ZA34940 08700040 &IDACB01 SETB 1 08750040 &ERR SETA &ERR+1 BUMP ERROR COUNT X04SVHS 08800040 AGO .T000100 08850040 .T000200 AIF ('&AM' EQ 'VTAM').T000100 08900040 IDAVSERR 20,&OPTCD(&I),OPTCD @ZA34940 08950040 &IDACB01 SETB 1 X03004 09000040 AGO .T000100 09050040 .********************************************************************** 09100040 .* 09150040 .* THE FOLLOWING CODE CHECKS FOR MUTUALLY EXCLUSIVE OPTIONS 09200040 .* IF THEY EXIST, AN ERROR MSG IS ISSUED 09250040 .* 09300040 .T000300 AIF (NOT(&KEY AND &ADR)).T000400 09350040 IDAVSERR 8,OPTCD,KEY,ADR @ZA34940 09400040 &IDACB01 SETB 1 09440040 .T000400 AIF (NOT(&KEY AND &CNV)).T000500 09480040 IDAVSERR 8,OPTCD,KEY,CNV @ZA34940 09520040 &IDACB01 SETB 1 09560040 .T000500 AIF (NOT(&ADR AND &CNV)).T000600 09600040 IDAVSERR 8,OPTCD,ADR,CNV @ZA34940 09640040 &IDACB01 SETB 1 09680040 .T000600 AIF (NOT(&SEQ AND &DIR)).T000700 09720040 IDAVSERR 8,OPTCD,SEQ,DIR @ZA34940 09760040 &IDACB01 SETB 1 09800040 .T000700 AIF (NOT(&SEQ AND &SKP)).T000800 09840040 IDAVSERR 8,OPTCD,SEQ,SKP @ZA34940 09880040 &IDACB01 SETB 1 09920040 .T000800 AIF (NOT(&DIR AND &SKP)).T000900 09960040 IDAVSERR 8,OPTCD,DIR,SKP @ZA34940 10000040 &IDACB01 SETB 1 10040040 .T000900 AIF (NOT(&SYN AND &ASY)).T001000 10080040 IDAVSERR 8,OPTCD,SYN,ASY @ZA34940 10120040 &IDACB01 SETB 1 10160040 .T001000 AIF (NOT(&NUP AND &UPD)).T001100 10200040 IDAVSERR 8,OPTCD,NUP,UPD @ZA34940 10240040 &IDACB01 SETB 1 10280040 .T001100 AIF (NOT(&NUP AND &NSP)).T001150 10320040 IDAVSERR 8,OPTCD,NUP,NSP @ZA34940 10360040 &IDACB01 SETB 1 10400040 .T001150 AIF (NOT(&UPD AND &NSP)).T001200 10440040 IDAVSERR 8,OPTCD,UPD,NSP @ZA34940 10480040 &IDACB01 SETB 1 10520040 .T001200 AIF (NOT(&KEQ AND &KGE)).T001350 @ZA07549 10560040 IDAVSERR 8,OPTCD,KEQ,KGE @ZA34940 10600040 &IDACB01 SETB 1 10640040 .T001350 AIF (NOT(&WAITX AND &NWAITX)).T001400 @ZA07549 10680040 IDAVSERR 8,OPTCD,WAITX,NWAITX @ZA34940 10720040 &IDACB01 SETB 1 @ZA07549 10760040 .T001400 AIF (NOT(&FKS AND &GEN)).T001500 10800040 IDAVSERR 8,OPTCD,FKS,GEN @ZA34940 10840040 &IDACB01 SETB 1 10880040 .T001500 AIF (NOT(&MVE AND &LOC)).T001600 X03004 10920040 IDAVSERR 8,OPTCD,MVE,LOC @ZA34940 10960040 &IDACB01 SETB 1 11000040 .T001600 AIF (NOT(&CA AND &CS)).T001800 @Z40BHUC 11040040 IDAVSERR 8,OPTCD,CA,CS @ZA34940 11080040 &IDACB01 SETB 1 X03004 11120040 .T001800 AIF (NOT(&RELEASE AND &PASS)).T001900 X03004 11160040 IDAVSERR 8,OPTCD,RELEASE,PASS @ZA34940 11200040 &IDACB01 SETB 1 X03004 11240040 .T001900 AIF (NOT(&NERASE AND &EAU)).T002000 X03004 11280040 IDAVSERR 8,OPTCD,NERASE,EAU @ZA34940 11320040 &IDACB01 SETB 1 X03004 11360040 .T002000 AIF (NOT(&NERASE AND &ERASE)).T002100 X03004 11400040 IDAVSERR 8,OPTCD,NERASE,ERASE @ZA34940 11440040 &IDACB01 SETB 1 X03004 11480040 .T002100 AIF (NOT(&EAU AND &ERASE)).T002200 X03004 11520040 IDAVSERR 8,OPTCD,EAU,ERASE @ZA34940 11560040 &IDACB01 SETB 1 X03004 11600040 .T002200 AIF (NOT(&SPEC AND &ANY)).T002300 X03004 11640040 IDAVSERR 8,OPTCD,SPEC,ANY @ZA34940 11680040 &IDACB01 SETB 1 X03004 11720040 .T002300 AIF (NOT(&NCONV AND &CONV)).T002400 X03004 11760040 IDAVSERR 8,OPTCD,NCONV,CONV @ZA34940 11800040 &IDACB01 SETB 1 X03004 11840040 .T002400 AIF (NOT(&LBT AND &LBM)).T002500 X03004 11880040 IDAVSERR 8,OPTCD,LBT,LBM @ZA34940 11920040 &IDACB01 SETB 1 X03004 11960040 .T002500 AIF (NOT(&LBT AND &BLK)).T002600 X03004 12000040 IDAVSERR 8,OPTCD,LBT,BLK @ZA34940 12040040 &IDACB01 SETB 1 X03004 12080040 .T002600 AIF (NOT(&LBM AND &BLK)).T002700 X03004 12120040 IDAVSERR 8,OPTCD,LBM,BLK @ZA34940 12160040 &IDACB01 SETB 1 X03004 12200040 .T002700 AIF (NOT(&COND AND &UNCOND)).T002800 X03004 12240040 IDAVSERR 8,OPTCD,COND,UNCOND @ZA34940 12280040 &IDACB01 SETB 1 X03004 12320040 .T002800 AIF (NOT(&COND AND &LOCK)).T002900 X03004 12360040 IDAVSERR 8,OPTCD,COND,LOCK @ZA34940 12400040 &IDACB01 SETB 1 X03004 12440040 .T002900 AIF (NOT(&UNCOND AND &LOCK)).T003000 X03004 12480040 IDAVSERR 8,OPTCD,UNCOND,LOCK @ZA34940 12520040 &IDACB01 SETB 1 X03004 12560040 .T003000 AIF (NOT(&LGONMSG AND &DEVCHAR)).T003100 X03004 12600040 IDAVSERR 8,OPTCD,LOGONMSG,DEVCHAR @ZA34940 12640040 &IDACB01 SETB 1 X03004 12680040 .T003100 AIF (NOT(&LGONMSG AND &TERMS)).T003200 X03004 12720040 IDAVSERR 8,OPTCD,LOGONMSG,TERMS @ZA34940 12760040 &IDACB01 SETB 1 X03004 12800040 .T003200 AIF (NOT(&LGONMSG AND &APPSTAT)).T003300 X03004 12840040 IDAVSERR 8,OPTCD,LOGONMSG,APPSTAT @ZA34940 12880040 &IDACB01 SETB 1 X03004 12920040 .T003300 AIF (NOT(&LGONMSG AND &COUNTS)).T003400 X03004 12960040 IDAVSERR 8,OPTCD,LOGONMSG,COUNTS @ZA34940 13000040 &IDACB01 SETB 1 X03004 13040040 .T003400 AIF (NOT(&LGONMSG AND &RNNAME)).T003500 X03004 13080040 IDAVSERR 8,OPTCD,LOGONMSG,RNNAME @ZA34940 13120040 &IDACB01 SETB 1 X03004 13160040 .T003500 AIF (NOT(&LGONMSG AND &CIDXLAT)).T003600 X03004 13200040 IDAVSERR 8,OPTCD,LOGONMSG,CIDXLATE @ZA34940 13240040 &IDACB01 SETB 1 X03004 13280040 .T003600 AIF (NOT(&LGONMSG AND &TOPLGON)).T003700 X03004 13320040 IDAVSERR 8,OPTCD,LOGONMSG,TOPLOGON @ZA34940 13360040 &IDACB01 SETB 1 X03004 13400040 .T003700 AIF (NOT(&LGONMSG AND &BSCID)).T003800 X03004 13440040 IDAVSERR 8,OPTCD,LOGONMSG,BSCID @ZA34940 13480040 &IDACB01 SETB 1 X03004 13520040 .T003800 AIF (NOT(&LGONMSG AND &DISPLAY)).T003900 X03004 13560040 IDAVSERR 8,OPTCD,LOGONMSG,DISPLAY @ZA34940 13600040 &IDACB01 SETB 1 X03004 13640040 .T003900 AIF (NOT(&LGONMSG AND &SESSPRM)).T003930 @G40AKSL 13680040 IDAVSERR 8,OPTCD,LOGONMSG,SESSPARM @ZA34940 13720040 &IDACB01 SETB 1 @ZA07555 13760040 .T003930 AIF (NOT(&LGONMSG AND &SESSKEY)).T003950 @G40AKSL 13800040 IDAVSERR 8,OPTCD,LOGONMSG,SESSKEY @ZA34940 13840040 &IDACB01 SETB 1 @G40AKSL 13880040 .T003950 AIF (NOT(&DEVCHAR AND &TERMS)).T004000 @ZA07555 13920040 IDAVSERR 8,OPTCD,DEVCHAR,TERMS @ZA34940 13960040 &IDACB01 SETB 1 X03004 14000040 .T004000 AIF (NOT(&DEVCHAR AND &APPSTAT)).T004100 X03004 14040040 IDAVSERR 8,OPTCD,DEVCHAR,APPSTAT @ZA34940 14080040 &IDACB01 SETB 1 X03004 14120040 .T004100 AIF (NOT(&DEVCHAR AND &COUNTS)).T004200 X03004 14160040 IDAVSERR 8,OPTCD,DEVCHAR,COUNTS @ZA34940 14200040 &IDACB01 SETB 1 X03004 14240040 .T004200 AIF (NOT(&DEVCHAR AND &RNNAME)).T004300 X03004 14280040 IDAVSERR 8,OPTCD,DEVCHAR,RNNAME @ZA34940 14320040 &IDACB01 SETB 1 X03004 14360040 .T004300 AIF (NOT(&DEVCHAR AND &CIDXLAT)).T004400 X03004 14400040 IDAVSERR 8,OPTCD,DEVCHAR,CIDXLATE @ZA34940 14440040 &IDACB01 SETB 1 X03004 14480040 .T004400 AIF (NOT(&DEVCHAR AND &TOPLGON)).T004500 X03004 14520040 IDAVSERR 8,OPTCD,DEVCHAR,TOPLOGON @ZA34940 14560040 &IDACB01 SETB 1 X03004 14600040 .T004500 AIF (NOT(&DEVCHAR AND &BSCID)).T004600 X03004 14640040 IDAVSERR 8,OPTCD,DEVCHAR,BSCID @ZA34940 14680040 &IDACB01 SETB 1 X03004 14720040 .T004600 AIF (NOT(&DEVCHAR AND &DISPLAY)).T004650 @ZA07555 14760040 IDAVSERR 8,OPTCD,DEVCHAR,DISPLAY @ZA34940 14800040 &IDACB01 SETB 1 X03004 14840040 .T004650 AIF (NOT(&DEVCHAR AND &SESSPRM)).T004670 @G40AKSL 14880040 IDAVSERR 8,OPTCD,DEVCHAR,SESSPARM @ZA34940 14920040 &IDACB01 SETB 1 @ZA07555 14960040 .T004670 AIF (NOT(&DEVCHAR AND &SESSKEY)).T004700 @G40AKSL 15000040 IDAVSERR 8,OPTCD,DEVCHAR,SESSKEY @ZA34940 15040040 &IDACB01 SETB 1 @G40AKSL 15080040 .T004700 AIF (NOT(&TERMS AND &APPSTAT)).T004800 X03004 15120040 IDAVSERR 8,OPTCD,TERMS,APPSTAT @ZA34940 15160040 &IDACB01 SETB 1 X03004 15200040 .T004800 AIF (NOT(&TERMS AND &COUNTS)).T004900 X03004 15240040 IDAVSERR 8,OPTCD,TERMS,COUNTS @ZA34940 15280040 &IDACB01 SETB 1 X03004 15320040 .T004900 AIF (NOT(&TERMS AND &RNNAME)).T005000 X03004 15360040 IDAVSERR 8,OPTCD,TERMS,RNNAME @ZA34940 15400040 &IDACB01 SETB 1 X03004 15440040 .T005000 AIF (NOT(&TERMS AND &CIDXLAT)).T005100 X03004 15480040 IDAVSERR 8,OPTCD,TERMS,CIDXLATE @ZA34940 15520040 &IDACB01 SETB 1 X03004 15560040 .T005100 AIF (NOT(&TERMS AND &TOPLGON)).T005200 X03004 15600040 IDAVSERR 8,OPTCD,TERMS,TOPLOGON @ZA34940 15640040 &IDACB01 SETB 1 X03004 15680040 .T005200 AIF (NOT(&TERMS AND &BSCID)).T005300 X03004 15720040 IDAVSERR 8,OPTCD,TERMS,BSCID @ZA34940 15760040 &IDACB01 SETB 1 X03004 15800040 .T005300 AIF (NOT(&TERMS AND &DISPLAY)).T005350 @ZA07555 15840040 IDAVSERR 8,OPTCD,TERMS,APPSTAT @ZA34940 15880040 &IDACB01 SETB 1 X03004 15920040 .T005350 AIF (NOT(&TERMS AND &SESSPRM)).T005370 @G40AKSL 15960040 IDAVSERR 8,OPTCD,TERMS,SESSPARM @ZA34940 16000040 &IDACB01 SETB 1 @ZA07555 16040040 .T005370 AIF (NOT(&TERMS AND &SESSKEY)).T005400 @G40AKSL 16080040 IDAVSERR 8,OPTCD,TERMS,SESSKEY @ZA34940 16120040 &IDACB01 SETB 1 @G40AKSL 16160040 .T005400 AIF (NOT(&APPSTAT AND &COUNTS)).T005500 X03004 16200040 IDAVSERR 8,OPTCD,APPSTAT,COUNTS @ZA34940 16240040 &IDACB01 SETB 1 X03004 16280040 .T005500 AIF (NOT(&APPSTAT AND &RNNAME)).T005600 X03004 16320040 IDAVSERR 8,OPTCD,APPSTAT,RNNAME @ZA34940 16360040 &IDACB01 SETB 1 X03004 16400040 .T005600 AIF (NOT(&APPSTAT AND &CIDXLAT)).T005700 X03004 16440040 IDAVSERR 8,OPTCD,APPSTAT,CIDXLATE @ZA34940 16480040 &IDACB01 SETB 1 X03004 16520040 .T005700 AIF (NOT(&APPSTAT AND &TOPLGON)).T005800 X03004 16560040 IDAVSERR 8,OPTCD,APPSTAT,TOPLOGON @ZA34940 16600040 &IDACB01 SETB 1 X03004 16640040 .T005800 AIF (NOT(&APPSTAT AND &BSCID)).T005900 X03004 16680040 IDAVSERR 8,OPTCD,APPSTAT,BSCID @ZA34940 16720040 &IDACB01 SETB 1 X03004 16760040 .T005900 AIF (NOT(&APPSTAT AND &DISPLAY)).T005950 @ZA07555 16800040 IDAVSERR 8,OPTCD,APPSTAT,DISPLAY @ZA34940 16840040 &IDACB01 SETB 1 X03004 16880040 .T005950 AIF (NOT(&APPSTAT AND &SESSPRM)).T005960 @G40AKSL 16920040 IDAVSERR 8,OPTCD,APPSTAT,SESSPARM @ZA34940 16960040 &IDACB01 SETB 1 @ZA07555 17000040 .T005960 AIF (NOT(&APPSTAT AND &SESSKEY)).T006000 @G40AKSL 17040040 IDAVSERR 8,OPTCD,APPSTAT,SESSKEY @ZA34940 17080040 &IDACB01 SETB 1 @G40AKSL 17120040 .T006000 AIF (NOT(&COUNTS AND &RNNAME)).T006100 X03004 17160040 IDAVSERR 8,OPTCD,COUNTS,RNNAME @ZA34940 17200040 &IDACB01 SETB 1 X03004 17240040 .T006100 AIF (NOT(&COUNTS AND &CIDXLAT)).T006200 X03004 17280040 IDAVSERR 8,OPTCD,COUNTS,CIDXLATE @ZA34940 17320040 &IDACB01 SETB 1 X03004 17360040 .T006200 AIF (NOT(&COUNTS AND &TOPLGON)).T006300 X03004 17400040 IDAVSERR 8,OPTCD,COUNTS,TOPLOGON @ZA34940 17440040 &IDACB01 SETB 1 X03004 17480040 .T006300 AIF (NOT(&COUNTS AND &BSCID)).T006400 X03004 17520040 IDAVSERR 8,OPTCD,COUNTS,BSCID @ZA34940 17560040 &IDACB01 SETB 1 X03004 17600040 .T006400 AIF (NOT(&COUNTS AND &DISPLAY)).T006450 @ZA07555 17640040 IDAVSERR 8,OPTCD,COUNTS,DISPLAY @ZA34940 17680040 &IDACB01 SETB 1 X03004 17720040 .T006450 AIF (NOT(&COUNTS AND &SESSPRM)).T006470 @G40AKSL 17760040 IDAVSERR 8,OPTCD,COUNTS,SESSPARM @ZA34940 17800040 &IDACB01 SETB 1 @ZA07555 17840040 .T006470 AIF (NOT(&COUNTS AND &SESSKEY)).T006500 @G40AKSL 17880040 IDAVSERR 8,OPTCD,COUNTS,SESSKEY @ZA34940 17920040 &IDACB01 SETB 1 @G40AKSL 17960040 .T006500 AIF (NOT(&RNNAME AND &CIDXLAT)).T006600 X03004 18000040 IDAVSERR 8,OPTCD,RNNAME,CIDXLATE @ZA34940 18040040 &IDACB01 SETB 1 X03004 18080040 .T006600 AIF (NOT(&RNNAME AND &TOPLGON)).T006700 X03004 18120040 IDAVSERR 8,OPTCD,RNNAME,TOPLOGON @ZA34940 18160040 &IDACB01 SETB 1 X03004 18200040 .T006700 AIF (NOT(&RNNAME AND &BSCID)).T006800 X03004 18240040 IDAVSERR 8,OPTCD,RNNAME,BSCID @ZA34940 18280040 &IDACB01 SETB 1 X03004 18320040 .T006800 AIF (NOT(&RNNAME AND &DISPLAY)).T006850 @ZA07555 18360040 IDAVSERR 8,OPTCD,RNNAME,DISPLAY @ZA34940 18400040 &IDACB01 SETB 1 X03004 18440040 .T006850 AIF (NOT(&RNNAME AND &SESSPRM)).T006870 @G40AKSL 18480040 IDAVSERR 8,OPTCD,RNNAME,SESSPARM @ZA34940 18520040 &IDACB01 SETB 1 @ZA07555 18560040 .T006870 AIF (NOT(&RNNAME AND &SESSKEY)).T006900 @G40AKSL 18600040 IDAVSERR 8,OPTCD,RNNAME,SESSKEY @ZA34940 18640040 &IDACB01 SETB 1 @G40AKSL 18680040 .T006900 AIF (NOT(&CIDXLAT AND &TOPLGON)).T007000 X03004 18720040 IDAVSERR 8,OPTCD,CIDXLATE,TOPLOGON @ZA34940 18760040 &IDACB01 SETB 1 X03004 18800040 .T007000 AIF (NOT(&CIDXLAT AND &BSCID)).T007100 X03004 18840040 IDAVSERR 8,OPTCD,CIDXLATE,BSCID @ZA34940 18880040 &IDACB01 SETB 1 X03004 18920040 .T007100 AIF (NOT(&CIDXLAT AND &DISPLAY)).T007150 @ZA07555 18960040 IDAVSERR 8,OPTCD,CIDXLATE,DISPLAY @ZA34940 19000040 &IDACB01 SETB 1 X03004 19040040 .T007150 AIF (NOT(&CIDXLAT AND &SESSPRM)).T007170 @G40AKSL 19080040 IDAVSERR 8,OPTCD,CIDXLATE,SESSPARM @ZA34940 19120040 &IDACB01 SETB 1 @ZA07555 19160040 .T007170 AIF (NOT(&CIDXLAT AND &SESSKEY)).T007200 @G40AKSL 19200040 IDAVSERR 8,OPTCD,CIDXLATE,SESSKEY @ZA34940 19240040 &IDACB01 SETB 1 @G40AKSL 19280040 .T007200 AIF (NOT(&TOPLGON AND &BSCID)).T007300 X03004 19320040 IDAVSERR 8,OPTCD,TOPLOGON,BSCID @ZA34940 19360040 &IDACB01 SETB 1 X03004 19400040 .T007300 AIF (NOT(&TOPLGON AND &DISPLAY)).T007350 @ZA07555 19440040 IDAVSERR 8,OPTCD,TOPLOGON,DISPLAY @ZA34940 19480040 &IDACB01 SETB 1 X03004 19520040 .T007350 AIF (NOT(&TOPLGON AND &SESSPRM)).T007370 @G40AKSL 19560040 IDAVSERR 8,OPTCD,TOPLOGON,SESSPARM @ZA34940 19600040 &IDACB01 SETB 1 @ZA07555 19640040 .T007370 AIF (NOT(&TOPLGON AND &SESSKEY)).T007400 @G40AKSL 19680040 IDAVSERR 8,OPTCD,TOPLOGON,SESSKEY @ZA34940 19720040 &IDACB01 SETB 1 @G40AKSL 19760040 .T007400 AIF (NOT(&BSCID AND &DISPLAY)).T007410 @ZA07555 19800040 IDAVSERR 8,OPTCD,BSCID,DISPLAY @ZA34940 19840040 &IDACB01 SETB 1 X03004 19880040 .T007410 AIF (NOT(&BSCID AND &SESSPRM)).T007415 @G40AKSL 19920040 IDAVSERR 8,OPTCD,BSCID,SESSPARM @ZA34940 19960040 &IDACB01 SETB 1 @ZA07555 20000040 .T007415 AIF (NOT(&BSCID AND &SESSKEY)).T007420 @G40AKSL 20040040 IDAVSERR 8,OPTCD,BSCID,SESSKEY @ZA34940 20080040 &IDACB01 SETB 1 @G40AKSL 20120040 .T007420 AIF (NOT(&DISPLAY AND &SESSPRM)).T007450 @G40AKSL 20160040 IDAVSERR 8,OPTCD,DISPLAY,SESSPARM @ZA34940 20200040 &IDACB01 SETB 1 @ZA07555 20240040 .T007450 AIF (NOT(&DISPLAY AND &SESSKEY)).T007470 @G40AKSL 20280040 IDAVSERR 8,OPTCD,DISPLAY,SESSKEY @ZA34940 20320040 &IDACB01 SETB 1 @G40AKSL 20360040 .T007470 AIF (NOT(&SESSPRM AND &SESSKEY)).T007500 @G40AKSL 20400040 IDAVSERR 8,OPTCD,SESSPARM,SESSKEY @ZA34940 20440040 &IDACB01 SETB 1 @G40AKSL 20480040 .T007500 AIF (NOT(&RELRQ AND &NRELRQ)).T007600 X03004 20520040 IDAVSERR 8,OPTCD,RELRQ,NRELRQ @ZA34940 20560040 &IDACB01 SETB 1 X03004 20600040 .T007600 AIF (NOT(&Q AND &NQ)).T007700 X03004 20640040 IDAVSERR 8,OPTCD,Q,NQ @ZA34940 20680040 &IDACB01 SETB 1 X03004 20720040 .T007700 AIF (NOT(&PEND AND &SESSION)).T007800 X03004 20760040 IDAVSERR 8,OPTCD,PEND,SESSION @ZA34940 20800040 &IDACB01 SETB 1 X03004 20840040 .T007800 AIF (NOT(&PEND AND &ACTIVE)).T007900 X03004 20880040 IDAVSERR 8,OPTCD,PEND,ACTIVE @ZA34940 20920040 &IDACB01 SETB 1 X03004 20960040 .T007900 AIF (NOT(&PEND AND &UNCONDL)).T008000 X03004 21000040 IDAVSERR 8,OPTCD,PEND,UNCONDL @ZA34940 21040040 &IDACB01 SETB 1 X03004 21080040 .T008000 AIF (NOT(&SESSION AND &ACTIVE)).T008100 X03004 21120040 IDAVSERR 8,OPTCD,SESSION,ACTIVE @ZA34940 21160040 &IDACB01 SETB 1 X03004 21200040 .T008100 AIF (NOT(&SESSION AND &UNCONDL)).T008200 X03004 21240040 IDAVSERR 8,OPTCD,SESSION,UNCONDL @ZA34940 21280040 &IDACB01 SETB 1 X03004 21320040 .T008200 AIF (NOT(&ACTIVE AND &UNCONDL)).T008300 X03004 21360040 IDAVSERR 8,OPTCD,ACTIVE,UNCONDL @ZA34940 21400040 &IDACB01 SETB 1 X03004 21440040 .T008300 AIF (NOT(&QUIESCE AND &START)).T008400 X03004 21480040 IDAVSERR 8,OPTCD,QUIESCE,START @ZA34940 21520040 &IDACB01 SETB 1 X03004 21560040 .T008400 AIF (NOT(&QUIESCE AND &STOP)).T008500 X03004 21600040 IDAVSERR 8,OPTCD,QUIESCE,STOP @ZA34940 21640040 &IDACB01 SETB 1 X03004 21680040 .T008500 AIF (NOT(&START AND &STOP)).T008600 X03004 21720040 IDAVSERR 8,OPTCD,START,STOP @ZA34940 21760040 &IDACB01 SETB 1 X03004 21800040 .T008600 AIF (NOT(&ACCEPT AND &ACQUIRE)).T008900 @Z40BHUC 21840040 IDAVSERR 8,OPTCD,ACCEPT,ACQUIRE @ZA34940 21880040 &IDACB01 SETB 1 X03004 21920040 .T008900 AIF (NOT(&CONALL AND &CONANY)).T009100 @Z40BHUC 21960040 IDAVSERR 8,OPTCD,CONALL,CONANY @ZA34940 22000040 &IDACB01 SETB 1 X03004 22040040 .T009100 AIF (NOT(&KEEP AND &TRUNC)).T009200 X3004BS 22080040 IDAVSERR 8,OPTCD,KEEP,TRUNC @ZA34940 22120040 &IDACB01 SETB 1 X3004BS 22160040 .T009200 AIF (NOT(&KEEP AND &NIBTK)).T009300 X3004BS 22200040 IDAVSERR 8,OPTCD,KEEP,NIBTK @ZA34940 22240040 &IDACB01 SETB 1 X3004BS 22280040 .T009300 AIF (NOT(&NIBTK AND &TRUNC)).T009700 @Z40BHUC 22320040 IDAVSERR 8,OPTCD,NIBTK,TRUNC @ZA34940 22360040 &IDACB01 SETB 1 X3004BS 22400040 .T009700 AIF (NOT(&FMHDR AND &NFMHDR)).T009800 X04SVHS 22440040 .* CHK FOR MUTUALLY OPTS X03004HS 22480040 IDAVSERR 8,OPTCD,FMHDR,NFMHDR @ZA34940 22520040 &IDACB01 SETB 1 X03004HS 25850040 .T009800 ANOP X04SVHS 25900040 AIF (NOT(&BWD AND &FWD)).T009900 CHK FOR MUTUALLY X04SVHS 25950040 .* EXCLUSIVE OPTIONS X04SVHS 26000040 IDAVSERR 8,OPTCD,FWD,BWD @ZA34940 26050040 &IDACB01 SETB 1 SET ERROR SWITCH X04SVHS 26100040 .T009900 ANOP X04SVHS 26150040 AIF (NOT(&ARD AND &LRD)).T010000 CHK FOR MUTUALLY X04SVHS 26200040 .* EXCLUSIVE OPTIONS X04SVHS 26250040 IDAVSERR 8,OPTCD,ARD,LRD @ZA34940 26300040 &IDACB01 SETB 1 SET ERROR SWITCH X04SVHS 26350040 .T010000 ANOP X04SVHS 26400040 AIF ('&CALLER' EQ 'RPL').T010100 X04SVHS 26450040 .* IF CALLED BY RPL, THEN GLOBALS MUST BE SET FOR 26500040 .* RPL TO GENERATE CODE FROM IN THE FORM OF DC'S 26550040 &IDAVALC(&IDAENO) SETC '&KEY&ADR&CNV&SEQ&DIR&SKP&SYN&ASY&NUP&UPD&NSP&KE*26600040 Q&KGE&FKS&GEN&MVE&LOC&FWD&BWD&ARD&LRD.0&WAITX&NWAITX.000*26650040 00000' @ZA07549 26700040 &IDAOPT2 SETC '&CA&CS.00&RELEASE&PASS&NERASE&EAU&ERASE&SPEC&ANY&NCONV&*26750040 CONV&LBT&LBM&BLK&COND&UNCOND&LOCK.00&LGONMSG&DEVCHAR&TER*26800040 MS&APPSTAT&COUNTS&RNNAME&CIDXLAT&TOPLGON' @Z40BHUC 26850040 &IDAOPT2 SETC '&IDAOPT2&BSCID&DISPLAY&RELRQ' X03004 26900040 &IDAOPT3 SETC '&NRELRQ&Q&NQ&PEND&SESSION&ACTIVE&UNCONDL&QUIESCE&START&*26950040 STOP&ACCEPT&ACQUIRE.0&CONALL&CONANY.00&KEEP&TRUNC&NIBTK.*27000040 00&SESSKEY&FMHDR&NFMHDR&SESSPRM.000000' @G40AKSL 27050040 MEXIT 27100040 .T010100 ANOP X04SVHS 27150040 AIF ('&CALLER' NE 'RPL').T011600 X04SVHS 27200040 .* AT THIS POINT EITHER IDAVSOPT WAS CALLED BY RPL,@ZA34940 27250040 .* OPTCD IS UNSPECIFIED, OR BOTH. IF CALLED BY RPL 27300040 .* SET ANY UNSPECIFIED DEFAULTS. 27350040 .* DEFAULTS FOR CBM WILL BE SET AT EXECUTE TIME 27400040 .* 27450040 &KEY SETB (NOT(&ADR OR &CNV) OR &KEY) X04SVHS 27500040 .* IF NOT ADR, OR CNV, SET KEY AS DEFAULT 27550040 &SEQ SETB (NOT(&DIR OR &SKP) OR &SEQ) X04SVHS 27600040 .* IF NOT DIR, OR SKP, SET SEQ AS DEFAULT 27650040 AIF ('&AM' NE 'VTAM').T011500 WAS VTAM SPECIFIED X04SVHS 27700040 .* SET VTAM DEFAULTS 27750040 &ACCEPT SETB (NOT(&ACQUIRE) OR &ACCEPT) @Z40BHUC 27800040 .* IF NOT ACQUIRE, SET ACCEPT DEFAULT 27850040 &Q SETB (NOT(&NQ) OR &Q) X04SVHS 27900040 .* IF NOT NQ SET Q AS DEFAULT 27950040 &RELRQ SETB (NOT(&NRELRQ) OR &RELRQ) X04SVHS 28000040 .* IF NOT NRELRQ SET RELRQ DEFAULT 28050040 &NERASE SETB (NOT(&EAU OR &ERASE) OR &NERASE) X04SVHS 28100040 .* IF NOT EAU OR ERASE, SET NERASE DEFAULT 28150040 &LBT SETB (NOT(&BLK OR &LBM) OR &LBT) X04SVHS 28200040 .* IF NOT BLK OR LBM, SET LBT DEFAULT 28250040 &COND SETB (NOT(&UNCOND OR &LOCK) OR &COND) X04SVHS 28300040 .* IF NOT UNCOND OR LOCK, SET COND DEFAULT 28350040 &CONALL SETB (NOT(&CONANY) OR &CONALL) X04SVHS 28400040 .* IF NOT CONANY SET CONALL DEFAULT 28450040 &QUIESCE SETB (NOT(&START OR &STOP) OR &QUIESCE) X04SVHS 28500040 .* IF NOT START OR STOP, SET QUIESCE DEFAULT 28550040 &LGONMSG SETB (NOT(&DEVCHAR OR &TERMS OR &APPSTAT OR &COUNTS OR &RNNAM*28600040 E OR &CIDXLAT OR &TOPLGON OR &BSCID OR &DISPLAY OR &SESS*28650040 PRM OR &SESSKEY) OR &LGONMSG) @G40AKCM 28700040 .* IF NONE OF ABOVE, LOGONMSG IS DEFAULT 28750040 &PEND SETB (NOT(&SESSION OR &ACTIVE OR &UNCONDL) OR &PEND) X04SVHS 28800040 .* IF NONE OF ABOVE, SET PEND DEFAULT 28850040 &NIBTK SETB (NOT(&TRUNC OR &KEEP) OR &NIBTK) X04SVHS 28900040 .* IF NOT KEEP OR TRUNC SET NIBTK DEFAULT 28950040 .T011500 ANOP X3004BH 29000040 .* SET GLOBALS TO BE ASSEMBLED BY DECLARATIVE AS CONSTANTS 29050040 &IDAOP1 SETC '&LOC&DIR&SEQ&SKP&ASY&KGE&GEN' OPTCD BYTE 1 X04SVHS 29100040 &IDAOP2 SETC '&KEY&ADR&CNV&BWD&LRD&WAITX&UPD&NSP' @ZA07549 29150040 .* OPTCD BYTE 2 @ZA07549 29200040 AIF ('&AM' NE 'VTAM').T011600 X04SVHS 29250040 .* IF NOT VTAM, BYPASS SETTING VTAM OPTION BYTES 29300040 &IDAOP5 SETC '&CS.0&PASS&NERASE&EAU&ERASE&ANY&CONV' @Z40BHUC 29350040 .* OPTCD BYTE 5 X04SVHS 29400040 &IDAOP6 SETC '&BLK&LBM&LBT&COND&UNCOND&LOCK.00' OPTCD BYTE 6 X04SVHS 29450040 &IDAOP7 SETC '&CONALL&CONANY.0&Q.0&RELRQ.00' OPTCD BYTE 7 X04SVHS 29500040 &IDAOP8 SETC '&ACQUIRE&ACCEPT.0&PEND&SESSION&ACTIVE&UNCONDL.0' 29550040 .* OPTCD BYTE 8 @Z40BHUC 29600040 &IDAOP9 SETC '&LGONMSG&DEVCHAR&TERMS&COUNTS&APPSTAT&RNNAME&CIDXLAT&TO*29650040 PLGON' OPTCD BYTE 9 X04SVHS 29700040 &IDAOPA SETC '&BSCID&DISPLAY&SESSPRM&SESSKEY.0000' 29750040 .* OPTCD BYTE 10 @G40AKSL 29800040 &IDAOPB SETC '&QUIESCE&START&STOP.00000' OPTCD BYTE 11 X04SVHS 29850040 &IDAOPC SETC '0&KEEP&TRUNC&NIBTK.000&FMHDR' @Z40BHUC 29900040 .* OPTCD BYTE 12 X04SVHS 29950040 .T011600 ANOP X04SVHS 30000040 MEND 30050040