* /* MACCOMP Y-2 SC1D7/SJD48 */ 00020000 * /* MACSTAT Y-2 73135/021160 */ 00020400 MACRO 00022000 &NAME XDAP &ECB,&TYPE,&DCB,&AREA,&LENGTH,&KEYADD,&BLKREF, S20201 X00030000 &SECTOR,&MF=I S20201 00040000 .* CHANGE LEVEL 003 MAY 15,1973 00050000 .* DATE OF LAST CHANGE FEBRUARY 8, 1982 @ZA20451 00052000 .* RELEASE 21 DELETIONS 00053000 .*D013000-015200,023230-023800 SA45783 00054000 .* VS2 RELEASE 02 DELETIONS 00055000 .*A061900 Y02072 00056000 .* VS2 RELEASE 037 CHANGES 00057000 .*A028600-028720 @ZA20451 00058000 .* VS2 RELEASE 038 ADDITION/CHANGES/DELETIONS 00058600 .*A038201-038203 D051800 @ZA57807 00059200 LCLA &LGTHKA1,&LGTHKA2,&CTR 00060000 LCLB &SW,&SW1,&B(6),&ITYPE SA45783 00080000 LCLC &GNAME,&KEYLEN,&PAR1,&PAR2 00100000 &GNAME SETC 'IHB'.'&SYSNDX' 00120000 AIF ('&TYPE' EQ '').NOTYPE SA45783 00130000 &ITYPE SETB ('&TYPE'(2,1) EQ 'I') SA45783 00132000 .NOTYPE ANOP SA45783 00134000 AIF ('&ECB' NE '').TNM 00140000 IHBERMAC 11 00160000 MEXIT 00180000 .TNM AIF ('&MF' EQ 'L').GO 00200000 AIF ('&NAME' EQ '').TMFE 00220000 &NAME DS 0H 00240000 AGO .TMFE 00260000 .GO AIF ('&ECB'(1,1) EQ '(').REGERR 00280000 &B(1) SETB ('&TYPE' EQ 'RI') SA45783 00290000 &B(2) SETB ('&TYPE' EQ 'RK') SA45783 00292000 &B(3) SETB ('&TYPE' EQ 'WI') SA45783 00294000 &B(4) SETB ('&TYPE' EQ 'WK') SA45783 00296000 &B(5) SETB ('&TYPE' EQ 'VI') SA45783 00298000 &B(6) SETB ('&TYPE' EQ 'VK') SA45783 00298400 AIF (&B(1)+&B(2)+&B(3)+&B(4)+&B(5)+&B(6) NE 1).E1 SA45783 00298800 &CTR SETA 14*&B(1)+6*&B(2)+13*&B(3)+5*&B(4)+14*&B(5)+6*&B(6) 00299200 .* SA45783 00299600 CNOP 4,8 00300000 AIF ('&NAME' EQ '').NAMLESS 00320000 &NAME EQU * 00340000 .NAMLESS ANOP 00360000 &ECB DC 1F'0' EVENT CONTROL BLOCK 00380000 DC X'42' IOB START FLAG 00400000 DC X'00000000' 00420000 DC AL3(&ECB) ECB ADDRESS 00440000 DC 2F'0' 3RD WORD 00460000 DC X'00' 4TH WORD START 00480000 DC AL3(&ECB+44) CCW1 ADDRESS 00500000 DC X'00' 00520000 AIF ('&DCB' EQ '').NODCB 00540000 AIF ('&DCB'(1,1) EQ '(').REGERR 00560000 DC AL3(&DCB) DCB ADDRESS 00580000 AGO .SDWD5 00600000 .NODCB DC X'000000' NO DCB SPECIFIED 00620000 .SDWD5 DC 2F'0' FIFTH DOUBLE WORD 00640000 &GNAME DC 2F'0' BLKREF FIELD 00660000 AIF ('&SECTOR' EQ '').STCHP S20201 00664000 AIF ('&SECTOR'(1,1) EQ '(').REGERR S20201 00668000 AIF ('&TYPE'(2,1) NE 'I').STCHP S20201 00672000 DC X'23',AL3(&SECTOR),X'40000001' SET SECTOR S20201 00676000 .STCHP AIF ('&TYPE' EQ '').TYPERR 00680000 AIF (K'&TYPE LT 2).E1 00700000 AIF ('&TYPE'(2,1) NE 'I').TTK 00720000 &GNAME.A DC X'31' SET OPCODE IN CCW-1 00740000 DC AL3(&GNAME+3) SET UP IOBSEEK+3 00760000 DC X'40' FLAG BYTE 00780000 DC X'00' 00800000 DC H'05' SET UP COUNT FIELD 00820000 AGO .STCCW2 00840000 .TTK AIF ('&TYPE'(2,1) EQ 'K').SK 00860000 .E2C IHBERMAC 48,,&TYPE 00880000 MEXIT 00900000 .SK ANOP 00920000 &GNAME.A DC X'29' SET OPCODE CCW1 00940000 AIF ('&KEYADD' EQ '').NOKAD 00960000 AIF ('&KEYADD(1)'(1,1) EQ '(').REGERR 00980000 DC AL3(&KEYADD(1)) KEYADDRESS 01000000 AGO .STFL 01020000 .NOKAD DC X'000000' 01040000 .STFL DC X'40' SET FLAG BYTE 01060000 DC X'00' 01080000 AIF ('&KEYADD' EQ '').NOKL 01100000 AIF (N'&KEYADD EQ 1).NOKL 01120000 AIF ('&KEYADD(2)'(1,1) EQ '(').REGERR 01140000 DC AL1(0) 01160000 DC AL1(&KEYADD(2)) KEY LENGTH 01180000 AGO .STCCW2 01200000 .NOKL DC X'0000' NO KEY LENGTH GIVEN 01220000 .STCCW2 DC X'08' CCW2 01240000 DC AL3(&GNAME.A) 01260000 DC X'00000000' 2ND WD IN CCW2 01280000 DC AL1(&CTR) CCW3 OPCODE 01460000 AIF ('&AREA' NE '').SETFLA SA45783 01540000 DC AL3(0) 01560000 AGO .SETFL 01580000 .SETFLA AIF ('&AREA'(1,1) EQ '(').REGERR 01600000 DC AL3(&AREA) SET AREA ADDR IN CCW3 01620000 .SETFL AIF ('&TYPE'(1,1) EQ 'V').SETV 01640000 DC X'00' FLAG BYTE IN CCW3 01660000 AGO .STL 01680000 .SETV DC X'10' FLAG BYTE IN CCW3 01700000 .STL DC X'00' 01720000 AIF ('&LENGTH' EQ '').NOLGTH 01740000 AIF ('&LENGTH'(1,1) EQ '(').REGERR 01760000 DC AL2(&LENGTH) LENGTH IN CCW3 01780000 AGO .END 01800000 .NOLGTH DC X'0000' NO LENGTH SPECIFIED 01820000 AGO .END 01840000 .E1 IHBERMAC 48,,&TYPE SA45783 01850000 MEXIT SA45783 01852000 .REGERR IHBERMAC 69 01860000 MEXIT 01880000 .TYPERR IHBERMAC 25 01900000 MEXIT 01920000 .TMFE AIF ('&MF' EQ 'E').PR 01940000 AIF ('&MF' EQ 'I').PROCI 01960000 IHBERMAC 35,,&MF 01980000 MEXIT 02000000 .PR AIF ('&ECB'(1,1) EQ '(').REG1 02020000 LA 1,&ECB+4 LOAD IOB ADDRESS 02040000 AGO .ADD8 02060000 .REG1 LA 1,4(0,&ECB(1)) LOAD IOB ADDRESS 02080000 .ADD8 AIF ('&DCB' EQ '').PRE5 02100000 AIF ('&DCB'(1,1) EQ '(').REGE1 02120000 LA 14,&DCB LOAD DCB ADDRESS 02140000 ST 14,20(1,0) STORE DCB INTO IOB 02160000 AGO .PRE5 02180000 .REGE1 ST &DCB(1),20(1,0) STORE DCB INTO IOB 02200000 .PRE5 AIF ('&BLKREF' EQ '').PRCCW1E 02220000 AIF ('&BLKREF'(1,1) EQ '(').REGE2 02240000 MVC 32(8,1),&BLKREF MOVE BLKREF TO IOB 02260000 AGO .PRCCW1E 02280000 .REGE2 MVC 32(8,1),0(&BLKREF(1)) MOVE BLKREF TO IOB 02300000 .PRCCW1E ANOP SA45783 02320000 AIF ('&SECTOR' EQ '').PRCCW1G S20201 02321000 AIF ('&SECTOR'(1,1) EQ '(').PRCCW1F SA45783 02322000 LA 14,&SECTOR SECTOR ADDR S20201 02325000 ST 14,40(0,1) IN CCW FOR LDH S20201 02326000 AGO .PRCCWSX S20201 02327000 .PRCCW1F ST &SECTOR(1),40(0,1) STORE ADDR IN SCTR CCW S20201 02328000 .PRCCWSX ANOP S20201 02329000 MVI 40(1),X'23' MOVE IN SET SCTR CODE S20201 02330000 .PRCCW1G ANOP S20201 02331000 .PRKE AIF ('&KEYADD' EQ '').PRCCW3E 02400000 AIF ('&KEYADD(1)'(1,1) EQ '(').REGE3 02420000 LA 14,&KEYADD(1) 02440000 ST 14,40(1,0) STORE KEYADD IN CCW1 02460000 AGO .XE1 02480000 .REGE3 ANOP 02500000 &LGTHKA1 SETA K'&KEYADD(1) 02520000 &LGTHKA1 SETA &LGTHKA1-2 02540000 &PAR1 SETC '&KEYADD(1)'(2,&LGTHKA1) 02560000 ST &PAR1,40(1,0) STORE KEYADD IN CCW1 02580000 .XE1 MVI 40(1),X'29' MOVE OPCODE TO CCW1 02600000 AIF (N'&KEYADD LT 2).PRCCW3E 02620000 AIF ('&KEYADD(2)'(1,1) EQ '(').REGE4 02640000 LA 14,&KEYADD(2).(0,0) PICK UP KEYLEN 02660000 STH 14,46(1,0) STORE KEYLEN IN CCW1 02680000 AGO .PRCCW3E 02700000 .REGE4 ANOP 02720000 &LGTHKA2 SETA K'&KEYADD(2) 02740000 &LGTHKA2 SETA &LGTHKA2-2 02760000 &PAR2 SETC '&KEYADD(2)'(2,&LGTHKA2) 02780000 STH &PAR2,46(1,0) STORE KEYLEN IN CCW1 02800000 .PRCCW3E AIF ('&AREA' EQ '').PRLE 02820000 AIF ('&TYPE' NE '').XE2 02840000 AIF ('&SECTOR' NE '').XE2D @ZA20451 02860000 AGO .XE2E @ZA20451 02863000 .XE2D IC 15,64(1,0) SAVE CCW3 OPCODE @ZA20451 02866000 AGO .XE2 @ZA20451 02869000 .XE2E IC 15,56(1,0) SAVE CCW3 OPCODE @ZA20451 02872000 .XE2 AIF ('&AREA'(1,1) EQ '(').REGE5 02880000 LA 14,&AREA 02900000 AIF ('&SECTOR' NE '').XE2A SA45783 02908000 AGO .XE2B S20201 02916000 .XE2A ST 14,64(0,1) STORE AREA IN CCW3 S20201 02924000 AGO .XE2C S20201 02932000 .XE2B ST 14,56(0,1) STORE AREA IN CCW3 S20201 02940000 .XE2C AIF ('&TYPE' NE '').PRLE S20201 02948000 AGO .XE3 02960000 .REGE5 AIF ('&SECTOR' NE '').REG5A SA45783 02966000 AGO .REG5B S20201 02972000 .REG5A ST &AREA(1),64(0,1) STORE AREA IN CCW3 S20201 02978000 AGO .REG5C S20201 02984000 .REG5B ST &AREA(1),56(0,1) STORE AREA IN CCW3 S20201 02990000 .REG5C AIF ('&TYPE' NE '').PRLE S20201 02996000 .XE3 AIF ('&SECTOR' NE '').XE3A SA45783 03002000 AGO .XE3B S20201 03008000 .XE3A STC 15,64(0,1) RESTORE CCW3 OP CODE S20201 03014000 AGO .PRLE S20201 03020000 .XE3B STC 15,56(0,1) RESTORE CCW3 OP CODE S20201 03026000 .PRLE AIF ('&LENGTH' EQ '').XE4 03040000 AIF ('&LENGTH'(1,1) EQ '(').REGE6 03060000 AIF (T'&LENGTH NE 'N').LIT 03080000 AIF ('&LENGTH' GT '4095').LIT 03100000 LA 14,&LENGTH.(0,0) 03120000 AIF ('&SECTOR' NE '').PRLE1 SA45783 03126000 AGO .PRLE2 S20201 03132000 .PRLE1 STH 14,70(0,1) STORE LENGTH IN CCW3 S20201 03138000 AGO .XE4 S20201 03144000 .PRLE2 STH 14,62(0,1) STORE LENGTH IN CCW3 S20201 03150000 AGO .XE4 03160000 .LIT B *+6 BRANCH AROUND LENGTH 03180000 DC AL2(&LENGTH) LENGTH 03200000 AIF ('&SECTOR' NE '').LIT1 SA45783 03206000 AGO .LIT2 S20201 03212000 .LIT1 MVC 70(2,1),*-2 MOVE LENGTH IN CCW3 S20201 03218000 AGO .XE4 S20201 03224000 .LIT2 MVC 62(2,1),*-2 MOVE LENGTH IN CCW3 S20201 03230000 AGO .XE4 03240000 .REGE6 AIF ('&SECTOR' NE '').REGE6A SA45783 03246000 AGO .REGE6B S20201 03252000 .REGE6A STH &LENGTH(1),70(0,1) STORE LENGTH IN CCW3 S20201 03258000 AGO .XE4 S20201 03264000 .REGE6B STH &LENGTH(1),62(0,1) STORE LENGTH IN CCW3 S20201 03270000 .XE4 AIF ('&TYPE' EQ '').ISVC 03280000 AIF ('&TYPE' NE 'RI').T1 03300000 AIF ('&SECTOR' NE '' AND '&TYPE'(2,1) EQ 'I').XE4A S20201 03306000 AGO .XE4B S20201 03312000 .XE4A MVI 64(1),X'0E' MOVE RI CODE TO CCW3 S20201 03318000 AGO .XE4C S20201 03324000 .XE4B MVI 56(1),X'0E' MOVE RI CODE TO CCW3 S20201 03330000 .XE4C AIF (&SW).PP21 S20201 03336000 AIF ('&SECTOR' NE '' AND '&TYPE'(2,1) EQ 'I').XE4D S20201 03342000 AGO .XE4E S20201 03348000 .XE4D MVI 68(1),X'00' MOVE FLAG TO CCW3 S20201 03354000 AGO .ISVC S20201 03360000 .XE4E MVI 60(1),X'00' MOVE FLAG TO CCW3 S20201 03366000 AGO .ISVC 03380000 .T1 AIF ('&TYPE' NE 'RK').T2 03400000 MVI 56(1),X'06' MOVE RK CODE TO CCW3 03420000 AIF (&SW).PP21 03440000 MVI 60(1),X'00' MOVE FLAG TO CCW3 03460000 AGO .ISVC 03480000 .T2 AIF ('&TYPE' NE 'WI').T3 03500000 AIF ('&SECTOR' NE '' AND '&TYPE'(2,1) EQ 'I').T2A S20201 03506000 AGO .T2B S20201 03512000 .T2A MVI 64(1),X'0D' MOVE WI CODE TO CCW3 S20201 03518000 AGO .T2C S20201 03524000 .T2B MVI 56(1),X'0D' MOVE WI CODE TO CCW3 S20201 03530000 .T2C AIF (&SW).PP21 S20201 03536000 AIF ('&SECTOR' NE '' AND '&TYPE'(2,1) EQ 'I').T2D S20201 03542000 AGO .T2E S20201 03548000 .T2D MVI 68(1),X'00' MOVE FLAG TO CCW3 S20201 03554000 AGO .ISVC S20201 03560000 .T2E MVI 60(1),X'00' MOVE FLAG TO CCW3 S20201 03566000 AGO .ISVC 03580000 .T3 AIF ('&TYPE' NE 'WK').T4 03600000 MVI 56(1),X'05' MOVE WK CODE TO CCW3 03620000 AIF (&SW).PP21 03640000 MVI 60(1),X'00' MOVE FLAG TO CCW3 03660000 AGO .ISVC 03680000 .T4 AIF ('&TYPE' NE 'VI').T5 03700000 AIF ('&SECTOR' NE '' AND '&TYPE'(2,1) EQ 'I').T4A S20201 03708000 AGO .T4B S20201 03716000 .T4A MVI 64(1),X'0E' MOVE VI CODE TO CCW3 S20201 03724000 AGO .T5A @ZA57807 03732000 .T4B MVI 56(1),X'0E' MOVE VI CODE TO CCW3 S20201 03740000 .T4C AIF (&SW).PP21 S20201 03748000 AGO .PP26 03760000 .T5 AIF ('&TYPE' NE 'VK').E1 03780000 MVI 56(1),X'06' MOVE VK CODE TO CCW3 03800000 AIF (&SW).PP21 03820000 .T5A AIF ('&SECTOR' EQ '').PP26 @ZA57807 03825000 MVI 68(1),X'10' @ZA57807 03830000 AGO .ISVC @ZA57807 03835000 .PP26 MVI 60(1),X'10' MOVE FLAG TO CCW3 03840000 AGO .ISVC 03860000 .PROCI ANOP 03880000 &SW SETB 1 03900000 AIF ('&ECB'(1,1) EQ '(').ERROR 03920000 LA 1,&ECB+4 LOAD IOB ADDRESS 03940000 .LIOB1 AIF ('&DCB' NE '').PRDCBI 03960000 IHBERMAC 06 03980000 MEXIT 04000000 .PRDCBI AIF ('&DCB'(1,1) NE '(').PP7 04020000 ST &DCB(1),20(1,0) STORE DCB IN IOB 04040000 .PP7 AIF ('&BLKREF' NE '').PP8 04060000 IHBERMAC 12 04080000 MEXIT 04100000 .PP8 AIF ('&BLKREF'(1,1) EQ '(').PP9 04120000 MVC 32(8,1),&BLKREF 04140000 AGO .PP10 04160000 .PP9 MVC 32(8,1),0(&BLKREF(1)) 04180000 .PP10 AIF ('&SECTOR' EQ '').PP10B S20201 04183000 AIF ('&SECTOR'(1,1) EQ '(' AND '&TYPE'(2,1) EQ X04186000 'I').PP10A 04189000 AIF ('&TYPE'(2,1) NE 'I').PP10B S20201 04192000 LA 14,&SECTOR SECTOR ADDR S20201 04195000 ST 14,40(0,1) IN CCW FOR LDH S20201 04198000 AGO .PP10SX S20201 04201000 .PP10A ST &SECTOR(1),40(0,1) STORE ADDR IN SCTR CCW S20201 04204000 .PP10SX ANOP S20201 04207000 MVI 40(1),X'23' MOVE IN SET SCTR CODE S20201 04210000 .PP10B AIF ('&TYPE' NE '').PP11 S20201 04213000 IHBERMAC 25 04220000 MEXIT 04240000 .PP11 AIF ('&TYPE'(2,1) EQ 'K').PPK 04260000 AIF ('&TYPE'(2,1) NE 'I').E2C 04280000 AGO .PCCW2I 04300000 .PPK AIF (N'&KEYADD EQ 2).PP13 04320000 IHBERMAC 08 04340000 MEXIT 04360000 .PP13 AIF ('&KEYADD'(2,1) NE '(').PP15 04380000 &LGTHKA1 SETA K'&KEYADD(1) 04400000 &LGTHKA1 SETA &LGTHKA1-2 04420000 &PAR1 SETC '&KEYADD(1)'(2,&LGTHKA1) 04440000 ST &PAR1,40(1,0) STORE KEY ADDRESS 04460000 MVI 40(1),X'29' MOVE IN CCW1 OPCODE 04480000 .PP15 AIF ('&KEYADD(2)'(1,1) NE '(').PCCW2I 04500000 &LGTHKA2 SETA K'&KEYADD(2) 04520000 &LGTHKA2 SETA &LGTHKA2-2 04540000 &PAR2 SETC '&KEYADD(2)'(2,&LGTHKA2) 04560000 STH &PAR2,46(1,0) STORE KEY LENGTH 04580000 .PCCW2I AIF ('&AREA' NE '').PP20 04600000 IHBERMAC 13 04620000 MEXIT 04640000 .PP20 AIF ('&AREA'(1,1) NE '(').PP21 04660000 AIF ('&SECTOR' NE '' AND '&TYPE'(2,1) EQ 'I').PP20A S20201 04666000 AGO .PP20B S20201 04672000 .PP20A ST &AREA(1),64(0,1) STORE AREA ADDRESS S20201 04678000 AGO .XE4 S20201 04684000 .PP20B ST &AREA(1),56(0,1) STORE AREA ADDRESS S20201 04690000 AGO .XE4 04700000 .PP21 AIF ('&LENGTH' NE '').PP23 04720000 IHBERMAC 14 04740000 MEXIT 04760000 .PP23 AIF ('&LENGTH'(1,1) NE '(').TT14 04780000 AIF ('&SECTOR' NE '' AND '&TYPE'(2,1) EQ 'I').PP23A S20201 04786000 AGO .PP23B S20201 04792000 .PP23A STH &LENGTH(1),70(0,1) STORE LENGTH S20201 04798000 AGO .TT14 S20201 04804000 .PP23B STH &LENGTH(1),62(0,1) STORE LENGTH S20201 04810000 .TT14 B &GNAME.Y BRANCH AROUND 04820000 CNOP 4,8 04840000 &ECB DC 1F'0' EVENT CONTROL BLOCK 04860000 .PP28 DC X'42' FLAG IN IOB 04880000 DC X'000000' FILL 1ST WORD OF IOB 04900000 DC X'00' START 2ND WD OF IOB 04920000 AIF (&SW1).XXX1 04940000 DC AL3(&ECB) ECB ADDR IN IOB 04960000 AGO .XXX2 04980000 .XXX1 DC AL3(&GNAME.X) ECBD ADDR IN IOB 05000000 .XXX2 DC 2F'0' 3RD AND 4TH WD OF IOB 05020000 DC X'00' START 5TH WORD OF IOB 05040000 DC AL3(&ECB+44) CCW START ADDR IN IOB S20201 05060000 DC X'00' START 6TH WD IN IOB 05080000 DC AL3(&DCB(1)) DCB ADDR IN IOB 05100000 DC 2F'0' 7TH AND 8TH WD OF IOB 05120000 &GNAME.2 DC 2F'0' IOBSEEK DOUBLE WD 05140000 AIF ('&SECTOR' NE '' AND '&TYPE'(2,1) EQ 'I').Q19 S20201 05145000 AGO .Q20 S20201 05150000 .Q19 DC X'23',AL3(&SECTOR),X'40000001' SET SECTOR S20201 05155000 .Q20 ANOP S20201 05160000 &GNAME.1 EQU * S20201 05165000 AIF ('&TYPE'(2,1) NE 'I').Q2 S20201 05170000 DC X'31' OP CODE IN CCW1 05200000 DC AL3(&GNAME.2+3) IOBSEEK&3 IN CCW1 05220000 AGO .SET40 05240000 .Q2 AIF ('&KEYADD'(2,1) EQ '(').Q3 05260000 DC X'29' OP CODE IN CCW1 05280000 DC AL3(&KEYADD(1)) KEYADDR IN CCW1 05300000 AGO .SET40 05320000 .Q3 DC F'0' 1ST WD OF CCW1 05340000 .SET40 DC X'40' FLAG IN CCW1 05360000 DC X'00' BYTE 2, WD 2 OF CCW1 05380000 AIF ('&TYPE'(2,1) NE 'I').Q4 05400000 DC H'05' COUNT FIELD IN CCW1 05420000 AGO .Q5 05440000 .Q4 AIF ('&KEYADD(2)'(1,1) EQ '(').Q6 05460000 DC AL1(0) 05480000 DC AL1(&KEYADD(2)) KEY LENGTH IN CCW1 05500000 AGO .Q5 05520000 .Q6 DC X'0000' CCW2 05540000 .Q5 DC X'08' OP CODE IN CCW2 05560000 DC AL3(&GNAME.1) CCW1 ADDR IN CCW2 05580000 DC F'0' 2ND WD OF CCW2 05600000 AIF ('&TYPE' NE 'RI').S1 05620000 DC X'0E' RI CODE IN CCW3 05640000 AGO .SX 05660000 .S1 AIF ('&TYPE' NE 'RK').S2 05680000 DC X'06' RK CODE IN CCW3 05700000 AGO .SX 05720000 .S2 AIF ('&TYPE' NE 'WI').S3 05740000 DC X'0D' WI CODE IN CCW3 05760000 AGO .SX 05780000 .S3 AIF ('&TYPE' NE 'WK').S4 05800000 DC X'05' WK CODE IN CCW3 05820000 AGO .SX 05840000 .S4 AIF ('&TYPE' NE 'VI').S5 05860000 DC X'0E' VI CODE IN CCW3 05880000 AGO .SX 05900000 .S5 AIF ('&TYPE' NE 'VK').E1 05920000 DC X'06' VK CODE IN CCW3 05940000 .SX DC AL3(&AREA(1)) AREA ADDRESS IN CCW3 05960000 AIF ('&TYPE'(1,1) EQ 'V').Q9 05980000 DC X'00' FLAG IN CCW3 06000000 AGO .Q10 06020000 .Q9 DC X'10' FLAF IN CCW3 06040000 .Q10 DC X'00' 2ND BYTE, 2ND WD CCW3 06060000 AIF ('&LENGTH'(1,1) EQ '(').Q11 06080000 DC AL2(&LENGTH) LENGTH IN CCW3 06100000 AGO .OUT 06120000 .Q11 DC H'0' LENGTH FIELD IN CCW3 06140000 .OUT ANOP 06160000 &GNAME.Y EQU * 06180000 .ISVC OI 0(1),X'01' SVC ISSUE EXCP Y02072 06190000 SVC 0 EXCP SVC 06200000 AGO .END 06220000 .ERROR IHBERMAC 36,,&ECB 06240000 .END MEND 06260000