|
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: 15748 (0x3d84)
Types: s3xseg
Names: »S$DTFB«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$DTFB«
MACRO 00010000
&LABEL $DTFB &RECL-,&BLKL-,&ERRLOG-,&BUFEND-,&RCAD-,&RVIADR-,&TRANSP-N,X00020000
&LINE-1,&CHN-,&CONV-N,&ITB-N,&FTYP-,&DLYCT-,&TERMAD-,&UP-,X00030000
&RVIMSK-,&RCVCT-,&TYPE-PP,&DIAL-,&DIALCT-,&SPAN-N,&CODE-E,X00040000
&SNDID-,&SNDCT-,&RCVID-,&LIMIT-,&LISTAD-,&RECSEP-,&BUFST-,X00050000
&POLRES-N,&BUFNO-,&AUTORS-N,&ERRCT-,&SWLIST-N 00060000
.*FUNCTION: GENERATE A BSCA DTF. 00070000
.* 00080000
.*INPUT: THE FOLLOWING OPERANDS ARE REQUIRED: RECL, BLKL, BUFST, RCAD, 00090000
.* BUFEND, AND FTYP. 00100000
.* 00110000
.*OUTPUT: ASSEMBLY ERRORS MAY BE GENERATED FOR INVALID RESPONSES. 00120000
.* MNOTES ARE GIVEN WHEN A REQUIRED OPERAND IS MISSING, FOR 00130000
.* CONFLICTING OPERANDS, AND INVALID PARAMETERS IN OPERANDS. 00140000
.* THE TYPE OPERAND IS USED TO KEY ON FOR MNOTES. IT IS ASSUMED 00150000
.* TO BE CORRECT, AND OTHER OPERANDS VALIDITY BASED ON THE TYPE. 00160000
.* 00170000
.* OPERAND: (DESCRIPTION) 00180000
.* KEYWORDS REQUIRED: 00190000
.* &RECL-RECORD LENGTH. 00200000
.* &BLKL-BLOCK LENGTH. 00210000
.* &BUFST-SYMB ADDR OF 1ST BYTE OF BUFFER I/O AREA. 00220000
.* &BUFEND-SYMB ADDR OF LAST BYTE OF BUFFER I/O AREA. 00230000
.* &RCAD-SYMB ADDR OF USER WORK AREA. 00240000
.* &FTYP-RECEIVE OR TRANSMIT FILE. 00250000
.* OPTIONAL KEYWORDS: 00260000
.* &LABEL-LABEL ASSOCIATED WITH THIS DTF. 00270000
.* &CODE-CODE TYPE.(EBCDIC OR ASCII) 00280000
.* &LINE-LINE 1 OR LINE 2. 00290000
.* &UP-UPSI BYTE. 00300000
.* &CHN-SYMB ADDR OF NEXT DTF. 00310000
.* &CONV-CONVERSATIONAL FILE. 00320000
.* &ITB-INTERMEDIATE BLOCK CHECK. 00330000
.* &TRANSP-TRANSPARENCY FEATURE. 00340000
.* &RVIADR-SYMB ADDR OF WHERE TO SET RVI. 00350000
.* &RVIMSK-RVI MASK. 00360000
.* &DLYCT-DELAY TIME COUNT. 00370000
.* &TYPE-LINE TYPE. 00380000
.* &SPAN-SPANNING RECORDS. 00390000
.* &RECSEP-RECORD SEPARATOR. 00400000
.* &DIAL-SYMB ADDR OF DIAL NUMBER. 00410000
.* &DIALCT-LENGTH OF DIAL NUMBER. 00420000
.* &RCVID-SYMB ADDR OF RECEIVE ID. 00430000
.* &RCVCT-LENGTH OF RECEIVE ID. 00440000
.* &SNDID-SYMB ADDR OF SEND ID. 00450000
.* &SNDCT-LENGTH OF SEND ID. 00460000
.* &TERMAD-TERMINAL ADDR. POLL/SELECT CHARS. 00470000
.* &LISTAD-SYMB ADDR OF POLL/ADDR LIST. 00480000
.* &LIMIT-POLLING WRAP LIST COUNT. 00490000
.* &ERRLOG-SYMB ADDR OF TERM STAT AREA. 00500000
.* &POLRES- 00510000
.* &BUFNO-NUMBER OF BUFFERS. 00520000
.* &AUTORS-MULTI-POINT AUTO RESPONSE. 00530000
.* &ERRCT-USER SPECIFIED ERROR RETRY COUNT. 00540000
.* &SWLIST-SWITCHED ANSWER ID LIST. 00550000
GBLB &$BEQI 00560000
GBLB &$BEW2 00570000
GBLB &$BL1 00580000
GBLB &$BL2 00590000
GBLB &$BEXR 00600000
GBLB &$BEXA 00610000
LCLA &A1,&BUF 00620000
TABLE &TYPE 00630000
PP TABDF '00' 00640000
AC TABDF '08' 00650000
AA TABDF '18' 00660000
MC TABDF '28' 00670000
MA TABDF '38' 00680000
MP TABDF '80' 00690000
CS TABDF '88' 00700000
TABDF '''TYPE' 00710000
TABLE &CONV 00720000
Y TABDF '192' 00730000
N TABDF '00' 00740000
TABDF '''CONV' 00750000
TABLE &CODE 00760000
E TABDF '00' 00770000
A TABDF '04' 00780000
TABDF '''CODE' 00790000
TABLE &ITB 00800000
Y TABDF '32' 00810000
N TABDF '00' 00820000
TABDF '''ITB' 00830000
TABLE &TRANSP 00840000
Y TABDF '16' 00850000
N TABDF '00' 00860000
TABDF '''TRANSP' 00870000
TABLE &FTYP 00880000
RCV TABDF '08' 00890000
TSM TABDF '00' 00900000
TABDF '''FTYP' 00910000
TABLE &LINE 00920000
1 TABDF '80' 00930000
2 TABDF '88' 00940000
TABDF '''LINE' 00950000
TABLE &SPAN 00960000
Y TABDF '02' 00970000
N TABDF '00' 00980000
TABDF '''SPAN' 00990000
TABLE &POLRES 01000000
Y TABDF '64' 01010000
N TABDF '00' 01020000
TABDF '''POLRES' 01030000
TABLE &AUTORS 01040000
Y TABDF '01' 01050000
N TABDF '00' 01060000
TABDF '''AUTORS' 01070000
TABLE &SWLIST 01080000
Y TABDF '80' 01090000
N TABDF '00' 01100000
TABDF '''SWLIST' 01110000
TEXT 01120000
&BUF SETA 0 01130000
* BSCA DTF. RELEASE-12 01140000
AIF (&BLKL GE &RECL).A 01150000
MNOTE 08,'B4001 CONFLICTING PARAMETERS. BLKL, RECL' 01160000
.A AIF (&CONV NE '192').A2 01170000
AIF (&RECL EQ &BLKL).A1 01180000
MNOTE 08,'B4002 CONFLICTING PARAMETERS. RECL,BLKL,CONV' 01190000
.A1 AIF (&ITB NE '32').A2 01200000
MNOTE 08,'B4003 CONFLICTING PARAMETERS. ITB, CONV' 01210000
.A2 AIF (&CODE EQ '00').A3 01220000
AIF (&TRANSP NE '16').A3 01230000
MNOTE 08,'B4004 CONFLICTING PARAMETERS. TRANSP, CODE' 01240000
.A3 AIF (&SPAN NE '02').A4 01250000
AIF (T'&RECSEP NE '').A4 01260000
AIF (&FTYP NE '08').A4 01270000
MNOTE 08,'B4005 CONFLICTING PARAMETERS. RECSEP' 01280000
.A4 AIF (&TYPE LT '08').A5 01290000
AIF (&TYPE GT '38').A5 01300000
MNOTE 04,'B0001 STATION IDS RECOMMENDED ON SWITCHED LINE' 01310000
.A5 AIF (&TYPE EQ '80').A51 01320000
AIF (&AUTORS NE '01').A51 01330000
MNOTE 08,'B2011 CONFLICTING OPERANDS. TYPE, AUTORS' 01340000
.A51 AIF (&TYPE NE '88').A6 Q CONTROL STATION? 01350000
AIF (&POLRES EQ '64').A6 01360000
AIF (&$BEQI).A6 Q EXTRN GENERATED FOR $$BSQI? 01370000
&$BEQI SETB 1 SET GLOBAL FOR EXTRN GENERATED. 01380000
EXTRN $$BSLG EXTRN FOR TERM LOG ROUTINE. 01390000
.A6 AIF (&$BEW2).A9 SECOND WORK AREA GENERATED? 01400000
AIF (&LINE NE '80').A7 Q THIS LINE 1? 01410000
&$BL1 SETB 1 SET GLOBAL FOR LINE 1. 01420000
AIF (&$BL2).A8 Q LINE 2 USED? 01430000
AGO .A9 NO-DONE. 01440000
.A7 ANOP 01450000
&$BL2 SETB 1 SET LINE 2 GLOBAL. 01460000
AIF (&$BL1).A8 Q LINE 1 USED? 01470000
AGO .A9 NO-DONE. 01480000
.A8 EXTRN $$BSAT EXTRN FOR SECOND LINE WORK AREA. 01490000
&$BEW2 SETB 1 SET GLOBAL FOR SECOND LINE. 01500000
.A9 AIF (&POLRES NE '64').A10 01510000
AIF (&$BEXR).A10 01520000
&$BEXR SETB 1 01530000
EXTRN $$BSMA 01540000
EXTRN $$BSMC 01550000
EXTRN $$BSMF 01560000
.A10 AIF (&AUTORS EQ '00').A11 01570000
AIF (&$BEXA).A11 01580000
&$BEXA SETB 1 01590000
EXTRN $$BSMD 01600000
.A11 AIF (T'&LABEL EQ '').AB 01610000
&LABEL EQU * 01620000
.AB DC XL1'&LINE' DEVICE ID. 01630000
AIF (T'&UP NE '').B 01640000
DC XL1'00' DEFAULT UPSI OF ZERO. 01650000
AGO .C 01660000
.B DC BL1'&UP' USER UPSI. 01670000
.C AIF (&CONV EQ '192').C1 01680000
DC AL1(&CONV+&CODE+&TRANSP+&ITB+9*&FTYP+65) ATTR BYTE 1. 01690000
AGO .C2 01700000
.C1 DC AL1(&CONV+&CODE+&TRANSP+&ITB+&FTYP+1) ATTR BYTE 1. 01710000
.C2 DC XL1'&TYPE' ATTR BYTE 2. 01720000
DC XL2'00' POST OPEN DTF CHAIN PTR. 01730000
AIF (T'&CHN EQ '').D 01740000
DC AL2(&CHN) DTF CHAIN PTR. 01750000
AGO .E 01760000
.D DC XL2'FFFF' DTF CHAIN PTR. 01770000
.E DC XL4'00' SYSTEM SAVE AREA. 01780000
AIF (T'&RCAD NE '').F 01790000
MNOTE 08,'B1004 MISSING REQUIRED OPERAND. RCAD' 01800000
AGO .G 01810000
.F DC AL2(&RCAD) ADDR OF USER LOGICAL BUFFER. 01820000
.G DC XL1'00' COMPLETION CODE. 01830000
DC XL1'00' OPERATION CODE. 01840000
DC XL2'00' BSCA WORK AREA. 01850000
AIF (&POLRES EQ '64').GA 01860000
AIF (&AUTORS EQ '01').GA 01870000
AIF (T'&ERRCT NE '').GA 01880000
DC XL1'&SWLIST' INDICATORS. 01890000
AGO .GB 01900000
.GA DC AL1(X'&SWLIST'+1) INDICATORS. 01910000
.GB AIF (T'&DIAL EQ '').I 01920000
AIF (&TYPE EQ '08').H 01930000
MNOTE 08,'B2001 CONFLICTING OPERANDS DIAL, TYPE' 01940000
.H DC AL2(&DIAL) ADDR OF DIAL #. 01950000
AGO .J 01960000
.I AIF (&TYPE NE '08').J 01970000
MNOTE 08,'B1005 MISSING REQUIRED OPERAND. DIAL' 01980000
.J AIF (T'&TERMAD EQ '').L 01990000
AIF (&TYPE EQ '80').K 02000000
MNOTE 08,'B2002 CONFLICTING OPERANDS. TERMAD, TYPE' 02010000
.K DC XL2'&TERMAD' POLL-SELECT CHARS. 02020000
AGO .M 02030000
.L AIF (&TYPE NE '80').M 02040000
MNOTE 08,'B1006 MISSING REQUIRED OPERAND. TERMAD' 02050000
.M AIF (T'&LISTAD EQ '').O 02060000
AIF (&TYPE EQ '88').N 02070000
MNOTE 08,'B2003 CONFLICTING OPERANDS. LISTAD, TYPE' 02080000
.N DC AL2(&LISTAD) ADDR OF POLL/ADDR LIST. 02090000
AGO .P 02100000
.O AIF (&TYPE NE '88').P 02110000
MNOTE 08,'B1007 MISSING REQUIRED OPERAND. LISTAD' 02120000
.P AIF (&TYPE EQ '08').Q 02130000
AIF (&TYPE EQ '80').Q 02140000
AIF (&TYPE EQ '88').Q 02150000
DC XL2'00' RESERVED. 02160000
.Q AIF (T'&DIALCT EQ '').T 02170000
AIF (&TYPE EQ '08').R 02180000
MNOTE 08,'B2004 CONFLICTING OPERANDS. DIALCT, TYPE' 02190000
.R AIF (&DIALCT LE '12').S 02200000
MNOTE 08,'B3004 INVALID PARAMETER IN OPERAND. DIALCT' 02210000
.S DC AL1(&DIALCT) LENGTH OF DIAL #. 02220000
AGO .V 02230000
.T AIF (&TYPE NE '08').U 02240000
MNOTE 08,'B1008 MISSING REQUIRED OPERAND. DIALCT' 02250000
.U DC XL1'F1' POLL/ADDR ID WHEN CTRL STAT. 02260000
.V AIF (&TYPE EQ '00').Y 02270000
AIF (&TYPE EQ '80').Y 02280000
AIF (&TYPE NE '88').CC 02290000
.* TYPE IS CONTROL STATION. 02300000
DC XL1'00' RESERVED. 02310000
AIF (T'&LIMIT EQ '').W 02320000
DC AL1(&LIMIT) WRAP LIST COUNT. 02330000
AGO .X 02340000
.W DC XL1'FF' DEFAULT WRAP LIST COUNT. 02350000
.X DC XL1'00' RESERVED. 02360000
AGO .Z 02370000
.* TYPE IS POINT-TO-POINT OR MULTIPOINT. 02380000
.Y DC XL3'00' RESERVED. 02390000
.* TYPE IS NON-SWITCHED. 02400000
.Z AIF (T'&RCVID EQ '').AA 02410000
MNOTE 08,'B2005 CONFLICTING OPERANDS. RCVID, TYPE' 02420000
.AA AIF (T'&RCVCT EQ '').BB 02430000
MNOTE 08,'B2006 CONFLICTING OPERANDS. RCVID/RCVCT,TYPE' 02440000
.BB AIF (&SWLIST EQ '00').JJ 02450000
MNOTE 08,'B2010 CONFLICTING OPERANDS. SWLIST, TYPE' 02460000
AGO .JJ 02470000
.* TYPE IS SWITCHED. 02480000
.CC AIF (&SWLIST NE '80').FF 02490000
AIF (&TYPE EQ '38').CC1 02500000
AIF (&TYPE EQ '18').CC1 02510000
MNOTE 08,'B2010 CONFLICTING OPERANDS. SWLIST, TYPE' 02520000
.CC1 AIF (T'&RCVID NE '').DD 02530000
MNOTE 08,'B1010 MISSING REQUIRED OPERAND. RCVID' 02540000
DC XL2'00' DEFAULT SWITCHED ID LIST ADDR. 02550000
AGO .EE 02560000
.DD DC AL2(&RCVID) ADDR OF SWITCHED ID LIST. 02570000
.EE DC XL1'F1' ENTRY SELECTOR. 02580000
AGO .JJ 02590000
.FF AIF (T'&RCVID NE '').GG 02600000
DC XL2'00' DEFAULT ADDR OF RECV ID. 02610000
AIF (T'&RCVCT EQ '').HH 02620000
MNOTE 08,'B1010 MISSING REQUIRED OPERAND. RCVID' 02630000
AGO .HH 02640000
.GG DC AL2(&RCVID) ADDR OF RECV ID. 02650000
AIF (T'&RCVCT NE '').II 02660000
MNOTE 08,'B1009 MISSING REQUIRED OPERAND. RCVCT' 02670000
.HH DC XL1'00' DEFAULT LENGTH OF RECV ID. 02680000
AGO .JJ 02690000
.II DC AL1(&RCVCT) LENGTH OF RECV ID. 02700000
.JJ AIF (&TYPE LT '08').NN 02710000
AIF (&TYPE GT '38').NN 02720000
AIF (T'&SNDID EQ '').KK 02730000
DC AL2(&SNDID) ADDR OF SDND ID. 02740000
AIF (T'&SNDCT NE '').LL 02750000
MNOTE 08,'B1011 MISSING REQUIRED OPERAND. SNDCT' 02760000
AGO .MM 02770000
.KK DC XL2'00' DEFAULT ADDR OF SEND ID. 02780000
AIF (T'&SNDCT EQ '').MM 02790000
MNOTE 08,'B1012 MISSING REQUIRED OPERAND. SNDID' 02800000
AIF (&SNDCT LE '15').LL 02810000
MNOTE 08,'B3006 INVALID PARAMETER IN OPERAND. SNDCT' 02820000
.LL DC AL1(&SNDCT) LENGTH OF SEND ID. 02830000
AGO .PP 02840000
.MM DC XL1'00' DEFAULT LENGTH OF SEND ID. 02850000
AGO .PP 02860000
.NN DC XL3'00' RESERVED. 02870000
AIF (T'&SNDID EQ '').OO 02880000
MNOTE 08,'B2007 CONFLICTING OPERANDS. SNDID / SNDCT, TYPE' 02890000
.OO AIF (T'&SNDCT EQ '').PP 02900000
MNOTE 08,'B2008 CONFLICTING OPERANDS. SNDCT, TYPE' 02910000
.PP ANOP 02920000
.QQ AIF (T'&DLYCT EQ '').RR 02930000
DC AL2(&DLYCT) DELAY COUNT. 02940000
AGO .SS 02950000
.RR DC XL2'00B4' DELAY COUNT. 02960000
.SS AIF (T'&RECL NE '').TT 02970000
MNOTE 08,'B1013 MISSING REQUIRED OPERAND. RECL' 02980000
AGO .UU 02990000
.TT DC AL2(&RECL) RECORD LENGTH. 03000000
.UU AIF (T'&BLKL NE '').VV 03010000
MNOTE 08,'B1014 MISSING REQUIRED OPERAND. BLKL' 03020000
AGO .WW 03030000
.VV DC AL2(&BLKL) BLOCK LENGTH. 03040000
.WW AIF (T'&BUFST NE '').XX3 03050000
AIF (T'&BUFEND NE '').XX 03060000
AIF (T'&BUFNO NE '').XX1 03070000
MNOTE 04,'B4006 BUFNO,BUFST,BUFEND MISSING. DEFAULT BUFNO-1' 03080000
&BUF SETA 1 03090000
AGO .XX11 03100000
.XX MNOTE 08,'B1015 MISSING REQUIRED PARAMETER BUFST' 03110000
AGO .AAA 03120000
.XX1 ANOP 03130000
&BUF SETA &BUFNO 03140000
.XX11 DC AL2($A&SYSNDX) ADDR OF START OF I/O AREA. 03150000
DC AL2($B&SYSNDX) ADDR OF END OF I/O AREA. 03160000
AGO .AAA 03170000
.XX3 AIF (T'&BUFNO EQ '').XX4 03180000
MNOTE 04,'B0002 BUFNO IGNORED. ' 03190000
.XX4 DC AL2(&BUFST) ADDR OF START OF I/O AREA. 03200000
AIF (T'&BUFEND NE '').ZZ 03210000
MNOTE 08,'B1016 MISSING REQURIED OPERAND. BUFEND' 03220000
AGO .AAA 03230000
.ZZ DC AL2(&BUFEND) ADDR OF END OF I/O AREA. 03240000
.AAA DC XL5'00' BSCA WORK AREA. 03250000
AIF (T'&RVIADR EQ '').BBB 03260000
AIF (T'&RVIMSK EQ '').CCC 03270000
DC XL1'&RVIMSK' RVI MASK. 03280000
DC AL2(&RVIADR) RVI MASK ADDR. 03290000
AGO .EEE 03300000
.BBB AIF (T'&RVIMSK EQ '').DDD 03310000
.CCC MNOTE 08,'B2009 CONFLICTING OPERANDS. RVIMSK, RVIADR' 03320000
AGO .EEE 03330000
.DDD DC XL3'00' DEFAULT-NO RVI. 03340000
.EEE DC XL6'00' BSCA WORK AREA. 03350000
AIF (&FTYP EQ '00').GGG 03360000
AIF (T'&RECSEP EQ '').FFF 03370000
DC AL1(01+&SPAN+&POLRES) TERM ATTR. 03380000
AGO .III 03390000
.FFF DC AL1(&SPAN+&POLRES) TERM ATTR. 03400000
AGO .III 03410000
.GGG AIF (T'&RECSEP EQ '').HHH 03420000
DC AL1(09+&SPAN+&POLRES) TERM ATTR. 03430000
AGO .III 03440000
.HHH DC AL1(08+&SPAN+&POLRES) TERM ATTR. 03450000
.III AIF (T'&RECSEP EQ '').JJJ 03460000
DC XL1'&RECSEP' RECORD SEPARATOR. 03470000
AGO .KKK 03480000
.JJJ DC XL1'00' RESERVED. 03490000
.KKK DC XL6'00' BSCA WORK AREA. 03500000
AIF (T'&ERRLOG EQ '').KKK1 03510000
DC AL2(&ERRLOG) ADDR OF TERM LOG AREA. 03520000
AGO .KKK3 03530000
.KKK1 AIF (&TYPE NE '88').KKK2 03540000
MNOTE 08,'B1017 MISSING REQUIRED OPERAND. ERRLOG' 03550000
AGO .KKK3 03560000
.KKK2 DC XL2'00' DEFAULT TERM LOG AREA. 03570000
.KKK3 AIF (&POLRES EQ '64').KKK4 03580000
AIF (&AUTORS EQ '01').KKK4 03590000
AIF (T'&ERRCT EQ '').UUU 03600000
.KKK4 AIF (&POLRES EQ '64').KKK5 03610000
DC XL4'00' RESERVED. 03620000
AGO .KKK6 03630000
.KKK5 AIF (&TYPE EQ '88').KKKK1 03640000
MNOTE 08,'B2012 CONFLICTING OPERANDS. TYPE, POLRES' 03650000
.KKKK1 DC AL2($$BSMA) ADDR OF CORE RES L0. 03660000
DC AL2($$BSMC) ADDR OF CORE RES CLOSE. 03670000
.KKK6 AIF (&AUTORS EQ '01').KKK7 03680000
DC XL2'00' RESERVED. 03690000
AGO .KKK8 03700000
.KKK7 DC AL2($$BSMD) 03710000
.KKK8 AIF (T'&ERRCT EQ '').KKK9 03720000
DC AL1(&ERRCT) RETRY COUNT. 03730000
AGO .KKKA 03740000
.KKK9 DC AL1(7) DEFAULT RETRY COUNT. 03750000
.KKKA DC XL2'00' SAVE AREA ADDRESS OF OLT CS. 03760000
DC XL5'00' RESERVED. 03762000
.UUU AIF (&BUF EQ '0').GGGG 03770000
$A&SYSNDX EQU * 03780000
AIF (&CONV NE '192').CCCC 03790000
AIF (&BUF EQ '1').BBBB 03800000
MNOTE 04,'B0003 USE 1 BUFFER FOR CONSERVATIONAL FILE' 03810000
.BBBB ANOP 03820000
&A1 SETA (&RECL*2+28) 03830000
$B&SYSNDX DC &A1.XL1'00' ADDR OF THE BUFFER AREA 03840000
AGO .GGGG 03850000
.CCCC AIF (&ITB NE '00').DDDD 03860000
&A1 SETA (&BLKL+42)*&BUF 03870000
$B&SYSNDX DC &A1.XL1'00' ADDR OF THE BUFFER AREA 03880000
AGO .GGGG 03890000
.DDDD AIF (&TRANSP NE '00').EEEE 03900000
&A1 SETA (&BLKL+42+(&BLKL/&RECL-1))*&BUF 03910000
$B&SYSNDX DC &A1.XL1'00' ADDR OF THE BUFFER AREA 03920000
AGO .GGGG 03930000
.EEEE AIF (&FTYP NE '08').FFFF 03940000
&A1 SETA (&BLKL+42+((&BLKL/&RECL-1)*3))*&BUF 03950000
$B&SYSNDX DC &A1.XL1'00' ADDR OF THE BUFFER AREA 03960000
AGO .GGGG 03970000
.FFFF ANOP 03980000
&A1 SETA (&BLKL+44+((&BLKL/&RECL-1)*5))*&BUF 03990000
$B&SYSNDX DC &A1.XL1'00' ADDR OF THE BUFFER AREA 04000000
.GGGG ANOP 04010000
MEND 04020000