|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 18034 (0x4672)
Types: s3xseg
Names: »S$EBSC«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$EBSC«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $EBSC * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 15,MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION FIRST PASS MACRO-INSTRUCTION -- DEFINE BSCA * 00100000
.* SUPPORT. * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . BSCA-0/1/2 * 00150000
.* * 00160000
.* NUMBER OF BSC ADAPTERS. OPERAND REQUIRED IF THIS STATEMENT * 00170000
.* IS USED. * 00180000
.* * 00190000
.* . DIAL-YES/NO * 00200000
.* * 00210000
.* SPECIFIES WHETHER SWITCHED-LINE SUPPORT IS TO BE INCLUDED. * 00220000
.* DEFAULT IS NO. * 00230000
.* * 00240000
.* . PP-YES/NO * 00250000
.* * 00260000
.* SPECIFIES WHETHER POINT-TO-POINT SUPPORT IS TO BE INCLUDED. * 00270000
.* DEFAULT IS NO. * 00280000
.* * 00290000
.* . MP-YES/NO * 00300000
.* * 00310000
.* SPECIFIES WHETHER MULTIPOINT TRIBUTARY SUPPORT IS TO BE * 00320000
.* INCLUDED. DEFAULT IS NO. * 00330000
.* * 00340000
.* . CS-YES/NO * 00350000
.* * 00360000
.* SPECIFIES WHETHER MULTIPOINT CONTROL STATION SUPPORT IS TO BE * 00370000
.* INCLUDED. DEFAULT IS NO. * 00380000
.* * 00390000
.* . GETMSG-YES/NO * 00400000
.* * 00410000
.* SPECIFIES WHETHER 'GATHER READ' SUPPORT IS TO BE INCLUDED. * 00420000
.* DEFAULT IS NO. * 00430000
.* * 00440000
.* . ITB-YES/NO * 00450000
.* * 00460000
.* SPECIFIES WHETHER INTERMEDIATE-TEXT-BLOCK SUPPORT IS TO BE * 00470000
.* INCLUDED. DEFAULT IS NO. * 00480000
.* * 00490000
.* . RECSEP-XX * 00500000
.* * 00510000
.* SPECIFIES ALTERNATE RECORD-SEPARATOR BYTE. OPERAND IS * 00520000
.* OPTIONAL. DEFAULT IS "1E". 00530000
.* * 00540000
.* . ASCII-YES/NO * 00550000
.* * 00560000
.* SPECIFIES WHETHER SUPPORT FOR ASCII TRANSMISSION CODE IS TO * 00570000
.* BE INCLUDED. DEFAULT IS NO. * 00580000
.* * 00590000
.* . EBCDIC-YES/NO * 00600000
.* * 00610000
.* SPECIFIES WHETHER SUPPORT FOR EBCDIC TRANSMISSION CODE IS TO * 00620000
.* BE INCLUDED. DEFAULT IS *YES*. * 00630000
.* * 00640000
.* . RESPOL-YES/NO * 00650000
.* * 00660000
.* SPECIFIES WHETHER RESIDENT POLLING IS TO BE INCLUDED FOR * 00670000
.* CONTROL-STATION LINE SUPPORT. DEFAULT IS NO. * 00680000
.* * 00690000
.* . AUTORS-YES/NO * 00700000
.* * 00710000
.* SPECIFIES WHETHER AUTO-RESPONSE SUPPORT IS TO BE INCLUDED * 00720000
.* FOR MULTIPOINT TRIBUTARY LINES. DEFAULT IS NO. * 00730000
.* * 00740000
.* . XPRNCY-YES/NO * 00750000
.* * 00760000
.* SPECIFIES WHETHER TEXT TRANSPARENCY FEATURE IS TO BE SUPPORTED * 00770000
.* -- DEFAULT IS NO. * 00780000
.* * 00790000
.* . DA-YES/NO 00800000
.* SPECIFIES WHETHER OR NOT LOCAL DISPLAY ADAPTER IS SUPPORTED * 00810000
.* -- DEFAULT IS NO. * 00820000
.* * 00830000
.* . BSYPRT-YES/NO @L* 00832000
.* SPECIFIES WHETHER OR NOT 328X BUSY PRINTER SUPPORT IS * 00834000
.* GENERATED. DEFAULT IS NO. * 00836000
.* * 00838000
.********************************************************************** 00840000
$EBSC &BSCA-,&DIAL-NO,&PP-NO,&MP-NO,&CS-NO,&GETMSG-NO,&ITB-NO, X00850000
&RECSEP-,&ASCII-NO,&EBCDIC-YES,&RESPOL-NO,&AUTORS-NO, X00860000
&XPRNCY-NO,&DA-NO,&BSYPRT-NO @L 00870000
.* 00880000
GBLA &SEQ . SEQUENCE CONTROL: 00890000
.* . MUST BE 5, 6, 7 UPON ENTRY 00900000
.* . IF 6 THEN &MLA MUST BE 0 00910000
.* . IS MADE 8 AFTER PROCESSING 00920000
GBLB &TERR . TERMINATION ERROR SWITCH 00930000
.* 00940000
GBLA &BSC . NUMBER BSC ADAPTERS 00950000
GBLC &BLT . BSC LINE TYPES SUPPORTED 00960000
GBLC &BFA . BSCA FEATURES SUPPORTED 00970000
GBLC &RSB . HEX RECORD SEPARATOR 00980000
GBLA &MLA . NUMBER MLTA LINES 00990000
GBLB &BIDA . DA SUPPORTED 01000000
.* @L 01003000
GBLB &PRT . BSYPRT SUPPORTED @L 01006000
.* 01010000
LCLA &N . NUMBER OF CHARACTERS 01020000
LCLC &C1,&C2 . FOR MANIPULATING CHAR VALUES 01030000
.* 01040000
TABLE &DIAL . SWITCHED LINE SUPPORT 01050000
YES TABDF 1 01060000
Y TABDF 1 01070000
NO TABDF 0 01080000
N TABDF 0 01090000
TABDF * . INVALID PARAMETER 01100000
.* 01110000
TABLE &PP . POINT-TO-POINT SUPPORT 01120000
YES TABDF 1 01130000
Y TABDF 1 01140000
NO TABDF 0 01150000
N TABDF 0 01160000
TABDF * . INVALID PARAMETER 01170000
.* 01180000
TABLE &MP . MULTIPOINT TRIBUTARY SUPPORT 01190000
YES TABDF 1 01200000
Y TABDF 1 01210000
NO TABDF 0 01220000
N TABDF 0 01230000
TABDF * . INVALID PARAMETER 01240000
.* 01250000
TABLE &CS . CONTROL STATION SUPPORT 01260000
YES TABDF 1 01270000
Y TABDF 1 01280000
NO TABDF 0 01290000
N TABDF 0 01300000
TABDF * . INVALID PARAMETER 01310000
.* 01320000
TABLE &GETMSG . GATHER-READ SUPPORT 01330000
YES TABDF 1 01340000
Y TABDF 1 01350000
NO TABDF 0 01360000
N TABDF 0 01370000
TABDF * . INVALID PARAMETER 01380000
.* 01390000
TABLE &ITB . INTERMEDIATE TEXT BLOCK SUPPRT 01400000
YES TABDF 1 01410000
Y TABDF 1 01420000
NO TABDF 0 01430000
N TABDF 0 01440000
TABDF * . INVALID PARAMETER 01450000
.* 01460000
TABLE &ASCII . ASCII TRANSMISSION CODE 01470000
YES TABDF 1 01480000
Y TABDF 1 01490000
NO TABDF 0 01500000
N TABDF 0 01510000
TABDF * . INVALID PARAMETER 01520000
.* 01530000
TABLE &EBCDIC . EBCDIC TRANSMISSION CODE 01540000
YES TABDF 1 01550000
Y TABDF 1 01560000
NO TABDF 0 01570000
N TABDF 0 01580000
TABDF * . INVALID PARAMETER 01590000
.* 01600000
TABLE &RESPOL . RESIDENT POLLING 01610000
YES TABDF 1 01620000
Y TABDF 1 01630000
NO TABDF 0 01640000
N TABDF 0 01650000
TABDF * . INVALID PARAMETER 01660000
.* 01670000
TABLE &AUTORS . AUTO RESPONSE 01680000
YES TABDF 1 01690000
Y TABDF 1 01700000
NO TABDF 0 01710000
N TABDF 0 01720000
TABDF * . INVALID PARAMETER 01730000
.* 01740000
TABLE &XPRNCY . TRANSPARENCY FEATURE 01750000
YES TABDF 1 01760000
Y TABDF 1 01770000
NO TABDF 0 01780000
N TABDF 0 01790000
TABDF * . INVALID PARAMETER 01800000
.* 01810000
TABLE &DA . LOCAL DISPLAY ADAPTER FEATURE 01820000
YES TABDF 1 01830000
Y TABDF 1 01840000
NO TABDF 0 01850000
N TABDF 0 01860000
TABDF * . INVALID PARAMETER 01870000
.* 01880000
TABLE &BSYPRT . 328X BUSY PRINTER @L 01881000
YES TABDF 1 @L 01882000
Y TABDF 1 @L 01883000
NO TABDF 0 @L 01884000
N TABDF 0 @L 01885000
TABDF * . INVALID PARAMETER @L 01886000
.* @L 01887000
TEXT 01890000
.* 01900000
.*--------- CHECK STATEMENT SEQUENCE -------------------------------* 01910000
.* 01920000
AIF (&SEQ EQ '5').SEQOK . OK IF $EFIL PREVIOUS 01930000
AIF (&SEQ EQ '7').SEQOK . OK IF $EMLD PREVIOUS 01940000
AIF (&SEQ NE '6').SEQER . ERROR IF NOT $EMLA PREVIOUS 01950000
AIF (&MLA EQ '0').SEQOK . OK IF $EMLA AND LINES-0 01960000
.* 01970000
.SEQER ANOP 01980000
*!400E $EBSC STATEMENT OUT OF SEQUENCE -- OR PRECEDING STATEMENT ERROR 01990000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 02000000
&BLT SETC '' . MAKE NULL PREVIOUS SPEC 02010000
&BFA SETC '' . MAKE NULL PREVIOUS SPEC 02020000
.* 02030000
.SEQOK ANOP . VALID SEQUENCE 02040000
.* 02050000
.*--------- BSCA-0/1/2 ---------------------------------------------* 02060000
.* 02070000
AIF (T'&BSCA NE 'O').BSCA . SKIP IF BSCA SPECIFIED 02080000
.* 02090000
*!405E MISSING 'BSCA' OPERAND -- MUST BE SPECIFIED IF STATEMENT USED 02100000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 02110000
AGO .BSEND 02120000
.* 02130000
.BSCA ANOP . BSCA SPECIFIED 02140000
AIF (T'&BSCA NE 'N').BSERR . ERROR IF NOT NUMERIC 02150000
AIF (K'&BSCA GT '4').BSERR . SKIP IF LONGER THAN 4 DIGITS 02160000
&N SETA &BSCA 02170000
AIF (&N EQ '0').BS0 . SKIP IF BSCA-0 02180000
AIF (&N LE '2').BSOK . SKIP IF BSCA-1 OR BSCA-2 02190000
.* 02200000
.BSERR ANOP 02210000
*!410E INVALID 'BSCA' PARAMETER -- MUST BE NUMBER IN RANGE 0-2 02220000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 02230000
AGO .BSEND 02240000
.* 02250000
.BS0 ANOP . BSCA-0 02260000
AIF ('&DIAL&PP&MP&CS&GETMSG&ITB' NE '000000').BS0ER 02270000
AIF ('&ASCII&EBCDIC&RESPOL&AUTORS' NE '0100').BS0ER 02280000
AIF (&RECSEP EQ 'NO').END 02290000
AIF (&RECSEP EQ 'N').END 02300000
.BS0ER ANOP 02310000
*!415E BSCA-0, BUT OTHER OPERAND SPECIFIED WITH NON-DEFAULT PARAMETER 02320000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 02330000
.* 02340000
.BSOK ANOP . BSCA-1 OR BSCA-2 02350000
&BSC SETA &BSCA . NUMBER BSC ADAPTERS 02360000
.* 02370000
.BSEND ANOP . END OPERAND 'BSCA' 02380000
.* 02390000
.*--------- DA-YES/Y/NO/N (YES=1, NO=0) ----------------------------* 02400000
.* 02410000
AIF (&DA NE '*').DAOK . SKIP IF VALID PARAMETER 02420000
*!417E INVALID 'DA' PARAMETER -- MUST BE YES/Y/NO/N 02430000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 02440000
AGO .DAEND 02450000
.* 02460000
.DAOK ANOP 02470000
AIF (&DA NE '1').DAEND . IF DA-NO, SKIP BSCA CHECK 02480000
AIF (&BSC GT '0').BIDK . SKIP IF BSCA-1 OR BSCA-2 02490000
*!419E IF DA-YES, MUST SPECIFY BSCA-1 OR BSCA-2 02500000
&TERR SETB 1 02510000
AGO .DAEND 02520000
.* 02530000
.BIDK ANOP . SET 'DA' SUPPORT 02540000
&BIDA SETB 1 02550000
.* 02560000
.DAEND ANOP . END OPERAND 'DA' 02570000
.* @L 02570500
.*----------- BSYPRT-YES/Y/NO/N (YES=1,NO=0)----------------------- @L 02571000
.* @L 02571500
AIF (&BSYPRT NE '*').BYOK . SKIP IF VALID PARAMETER @L 02572000
*!422E INVALID 'BSYPRT' PARAMETER -- MUST BY YES/Y/NO/N @L 02572500
&TERR SETB 1 . SET TERMINATION ERROR SWITCH@L 02573000
AGO .BYEND @L 02573500
.* @L 02574000
.BYOK ANOP @L 02574500
AIF (&BSYPRT NE '1').BYEND . IF BSYPRT-NO,SKIP BSCA CHECK@L 02575000
AIF (&BSC GT '0').BYOK2 . SKIP IF BSCA-1 OR BSCA-2 @L 02575500
*!423E IF BSYPRT-YES,MUST SPECIFY BSCA-1 OR BSCA-2 @L 02576000
&TERR SETB 1 .SET TERMINATION ERROR SWITCH @L 02576500
AGO .BYEND @L 02577000
.* @L 02577500
.BYOK2 ANOP @L 02578000
&PRT SETB 1 . SET 'BSYPRT'SUPPORT @L 02578500
.BYEND ANOP . END OPERAND 'BSYPRT' @L 02579000
.* 02580000
.*--------- PP-YES/Y/NO/N (YES=1, NO=0) ----------------------------* 02590000
.* 02600000
AIF (&PP NE '*').PPOK . SKIP IF VALID PARAMETER 02610000
.* 02620000
*!425E INVALID 'PP' PARAMETER -- MUST BE YES/Y/NO/N 02630000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 02640000
AGO .PPEND 02650000
.* 02660000
.PPOK ANOP . VALID PARAMETER 02670000
&BLT SETC '&PP' . SET X 02680000
.* 02690000
.PPEND ANOP . END OPERAND 'PP' 02700000
.* 02710000
.*--------- MP-YES/Y/NO/N (YES=1, NO=0) ----------------------------* 02720000
.* 02730000
AIF (&MP NE '*').MPOK . SKIP IF VALID PARAMETER 02740000
.* 02750000
*!430E INVALID 'MP' PARAMETER -- MUST BE YES/Y/NO/N 02760000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 02770000
AGO .MPEND 02780000
.* 02790000
.MPOK ANOP . VALID PARAMETER 02800000
&BLT SETC '&BLT&MP' . SET .X 02810000
.* 02820000
.MPEND ANOP . END OPERAND 'MP' 02830000
.* 02840000
.*--------- CS-YES/Y/NO/N (YES=1, NO=0) ----------------------------* 02850000
.* 02860000
AIF (&CS NE '*').CSOK . SKIP IF VALID PARAMETER 02870000
.* 02880000
*!435E INVALID 'CS' PARAMETER -- MUST BE YES/Y/NO/N 02890000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 02900000
AGO .CSEND 02910000
.* 02920000
.CSOK ANOP . VALID PARAMETER 02930000
&BLT SETC '&BLT&CS' . SET ..X 02940000
.* 02950000
.CSEND ANOP . END OPERAND 'CS' 02960000
.* 02970000
.*--------- DIAL-YES/Y/NO/N (YES=1, NO=0) --------------------------* 02980000
.* 02990000
AIF (&DIAL NE '*').DIOK . SKIP IF VALID PARAMETER 03000000
.* 03010000
*!420E INVALID 'DIAL' PARAMETER -- MUST BE YES/Y/NO/N 03020000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03030000
AGO .DIEND 03040000
.* 03050000
.DIOK ANOP 03060000
&BLT SETC '&BLT&DIAL' . SET ...X 03070000
.* 03080000
.DIEND ANOP . END OPERAND 'DIAL' 03090000
.* 03100000
.*--------- ASSURE AT LEAST ONE LINE TYPE SPECIFIED ----------------* 03110000
.* 03120000
AIF (&BLT NE '0000').LTEND . SKIP IF AT LEAST 1 TYPE 03130000
.* 03140000
*!440E BSCA PRESENT BUT NO LINE TYPES SPECIFIED 03150000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03160000
.* 03170000
.LTEND ANOP . END CHECK OF LINE TYPES 03180000
.* 03190000
.*--------- GETMSG-YES/Y/NO/N (YES=1, NO=0) -------------------------* 03200000
.* 03210000
AIF (&GETMSG NE '*').GMOK . SKIP IF VALID PARAMETER 03220000
.* 03230000
*!445E INVALID 'GETMSG' PARAMETER -- MUST BE YES/Y/NO/N 03240000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03250000
AGO .GMEND 03260000
.* 03270000
.GMOK ANOP . VALID PARAMETER 03280000
&BFA SETC '&GETMSG' . SET X 03290000
.* 03300000
.GMEND ANOP . END OPERAND 'GETMSG' 03310000
.* 03320000
.*--------- ITB-YES/Y/NO/N (YES=1, NO=0) ---------------------------* 03330000
.* 03340000
AIF (&ITB NE '*').ITOK . SKIP IF VALID PARAMETER 03350000
.* 03360000
*!450E INVALID 'ITB' PARAMETER -- MUST BE YES/Y/NO/N 03370000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03380000
.* 03390000
.ITOK ANOP . VALID PARAMETER 03400000
&BFA SETC '&BFA&ITB' . SET .X 03410000
.* 03420000
.ITEND ANOP . END OPERAND 'ITB' 03430000
.* 03440000
.*--------- RECSEP-XX ----------------------------------------------* 03450000
.* 03460000
AIF (T'&RECSEP EQ 'O').RSNO . SKIP IF RECSEP OMITTED 03470000
&N SETA K'&RECSEP . LENGTH OF PARAMETER 03480000
AIF (&N NE '2').RSERR . ERROR IF NOT 2 CHARS 03490000
.* 03500000
AIF ('&RECSEP'(1,1) GT '9').RSERR . ERR IF GT 9 03510000
AIF ('&RECSEP'(1,1) LT 'A').RSERR . ERR IF LT 'A' 03520000
AIF ('&RECSEP'(1,1) LE 'F').RS2 . OK IF IN RANGE A-F 03530000
AIF ('&RECSEP'(1,1) LT '0').RSERR . ERR IF NOT IN RANGE 0-9 03540000
.RS2 ANOP 03550000
AIF ('&RECSEP'(2,1) GT '9').RSERR . ERR IF GT 9 03560000
AIF ('&RECSEP'(2,1) LT 'A').RSERR . ERR IF LT 'A' 03570000
AIF ('&RECSEP'(2,1) LE 'F').RSYES . OK IF IN RANGE A-F 03580000
AIF ('&RECSEP'(2,1) GE '0').RSYES . OK IF IN RANGE 0-9 03590000
.* 03600000
.RSERR ANOP . INVALID PARAMETER 03610000
*!455E INVALID 'RECSEP' PARAMETER -- MUST BE 2 HEX DIGITS 03620000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03630000
AGO .RSEND 03640000
.* 03650000
.RSNO ANOP . RECSEP-NO 03660000
&BFA SETC '&BFA.0' . SET ..X 03670000
AGO .RSEND 03680000
.* 03690000
.RSYES ANOP . RECSEP-XX 03700000
&BFA SETC '&BFA.1' 03710000
&RSB SETC '1E' . SET DEFAULT RECORD-SEPARATOR 03720000
&RSB SETC '&RECSEP' . RECSEP CHARACTER 03730000
.* 03740000
.RSEND ANOP . END OPERAND 'RECSEP' 03750000
.* 03760000
.*--------- RESPOL-YES/Y/NO/N (YES=1, NO=0) ------------------------* 03770000
.* 03780000
AIF (&RESPOL NE '*').RPOK . SKIP IF VALID PARAMETER 03790000
.* 03800000
*!480E INVALID 'RESPOL' PARAMETER -- MUST BE YES/Y/NO/N 03810000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03820000
AGO .RPEND 03830000
.* 03840000
.RPOK ANOP . VALID PARAMETER 03850000
&BFA SETC '&BFA&RESPOL' . SET ...X 03860000
AIF (&RESPOL NE '1').RPEND . SKIP UNLESS RESPOL-YES 03870000
AIF (&CS NE '0').RPEND . SKIP UNLESS RESPOL-YES/CS-NO 03880000
.* 03890000
*!482W RESPOL-YES SPECIFIED WITH CS-NO -- TREATED AS RESPOL-NO 03900000
.* 03910000
.RPEND ANOP . END OPERAND 'RESPOL' 03920000
.* 03930000
.*--------- AUTORS-YES/Y/NO/N (YES=1, NO=0) ------------------------* 03940000
.* 03950000
AIF (&AUTORS NE '*').AUOK . SKIP IF VALID PARAMETER 03960000
.* 03970000
*!485E INVALID 'AUTORS' PARAMETER -- MUST BE YES/Y/NO/N 03980000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 03990000
AGO .AUEND 04000000
.* 04010000
.AUOK ANOP . VALID PARAMETER 04020000
&BFA SETC '&BFA&AUTORS' . SET ....X 04030000
AIF (&AUTORS NE '1').AUEND . SKIP UNLESS AUTORS-YES 04040000
AIF (&MP NE '0').AUEND . SKIP UNLESS AUTORS-YES/MP-NO 04050000
.* 04060000
*!487W AUTORS-YES SPECIFIED WITH CS-NO -- TREATED AS AUTORS-NO 04070000
.* 04080000
.AUEND ANOP . END OPERAND 'AUTORS' 04090000
.* 04100000
.*--------- EBCDIC-YES/Y/NO/N (YES/NULL=1, NO=0) -------------------* 04110000
.* 04120000
AIF (&EBCDIC NE '*').EBOK . SKIP IF VALID PARAMETER 04130000
.* 04140000
*!465E INVALID 'EBCDIC' PARAMETER -- MUST BE YES/Y/NO/N 04150000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 04160000
AGO .EBEND 04170000
.* 04180000
.EBOK ANOP . VALID PARAMETER 04190000
&BFA SETC '&BFA&EBCDIC' . SET .....X 04200000
.* 04210000
.EBEND ANOP . END OPERAND 'EBCDIC' 04220000
.* 04230000
.*--------- ASCII-YES/Y/NO/N (YES=1, NO=0) -------------------------* 04240000
.* 04250000
AIF (&ASCII NE '*').ASOK . SKIP IF VALID PARAMETER 04260000
.* 04270000
*!460E INVALID 'ASCII' PARAMETER -- MUST BE YES/Y/NO/N 04280000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 04290000
AGO .ASEND 04300000
.* 04310000
.ASOK ANOP . VALID PARAMETER 04320000
&BFA SETC '&BFA&ASCII' . SET ......X 04330000
.* 04340000
AIF ('&BFA'(6,2) NE '00').ASCK2 04350000
.* 04360000
*!470E BSCA PRESENT BUT NEITHER TRANSMISSION CODE IS USED 04370000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 04380000
AGO .ASEND 04390000
.* 04400000
.ASCK2 ANOP 04410000
AIF ('&BFA'(6,2) NE '11').ASEND . SKIP UNLESS ASCII/EBCDIC-Y 04420000
AIF (&BSCA NE '1').ASEND . SKIP UNLESS BSCA-1 04430000
.* 04440000
*!472E EBCDIC-YES AND ASCII-YES SPECIFIED WITH BSCA-1 -- NOT POSSIBLE 04450000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 04460000
.* 04470000
.ASEND ANOP . END OPERAND 'ASCII' 04480000
.* 04490000
.*--------- XPRNCY-YES/Y/NO/N (YES=1, NO=0) ------------------------* 04500000
.* 04510000
AIF (&XPRNCY NE '*').XPOK . SKIP IF VALID PARAMETER 04520000
.* 04530000
*!490E INVALID 'XPRNCY' PARAMETER -- MUST BE YES/Y/NO/N 04540000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 04550000
AGO .XPEND 04560000
.* 04570000
.XPOK ANOP . VALID PARAMETER 04580000
&BFA SETC '&BFA&XPRNCY' . SET .......X 04590000
.* 04600000
AIF (&XPRNCY EQ '0').XPEND . SKIP IF XPRNCY-NO 04610000
.* 04620000
AIF (&EBCDIC NE '0').XPEND . SKIP UNLESS EBCDIC-NO 04630000
.* 04640000
*!492E XPRNCY-YES SPECIFIED WITH EBCDIC-NO -- NOT VALID 04650000
&TERR SETB 1 . SET TERMINATION ERROR SWITCH 04660000
.* 04670000
.XPEND ANOP . END OPERAND 'XPRNCY' 04680000
.* 04690000
.*--------- SET STATEMENT SEQUENCE ---------------------------------* 04700000
.* 04710000
.END ANOP 04720000
&SEQ SETA 8 . INDICATE $EBSC PROCESSED 04730000
.* 04740000
MEND 04750000