* %GOTO WICB1; /* 10000002 MACRO 10050002 IDDWICB 10100002 WICB DSECT , */ 10150002 *%WICB1:; 10200002 * 10250002 */* *************************************************************** */ 10300002 */* */ 10350002 */* ***** WINDOW INTERCEPT CONTROL BLOCK ***** */ 10400002 */* */ 10450002 */* VS2 RELEASE 4.1 7/8/75 @Z40WSSR*/ 10500004 */* */ 10550002 */* METHOD OF ACCESS */ 10600002 */* PL/S - DCL WICBPTR PTR */ 10650002 */* - % IDDSWAPP = 'YES' - INCLUDES THE EXCP INTERCEPT */ 10660002 */* FRR PARAMETER LIST. */ 10670002 */* - % IDDSWJRN = 'YES' - INCLUDES WIJOURN FRR */ 10680002 */* PARAMETER LIST. */ 10690002 */* - % IDDCLSSW = 'YES' - INCLUDES WICLOSE FRR */ 10692002 */* PARAMETER LIST. */ 10694002 */* BAL - ONE DSECT PRODUCED. DO USING ON WICB */ 10700002 */* */ 10750002 */* FUNCTION */ 10800002 */* THE WINDOW INTERCEPT CONTROL BLOCK CONTAINS THE ACTIVE */ 10850002 */* FIELDS OF THE VAM DATA SET. IT IS ACQUIRED,RELEASED */ 10900002 */* AND MANIPULATED BY THE WINDOW INTERCEPT. */ 10950002 */* IT ALSO CONTAINS STATUS AND CONTROL INFORMATION */ 10960002 */* THAT IS USED IN INTERPRETING AND SIMULATING EXECUTION */ 10970002 */* OF THE CHANNEL PROGRAM ASSOCIATED WITH THE EXCP REQUEST */ 10980002 */* THAT INITIATED VIO PROCESSING. */ 10990002 */* */ 11000002 */* VS2 RELEASE 4.1 CHANGES: @Z40WSSR*/ 11010004 */* C511000, A511100 @Z40WSSR*/ 11020004 */* *************************************************************** */ 11050002 * 11100002 *%GOTO WICB2; /* 11150002 WICB DSECT , BOUNDARY 20000002 WICSEEKA DS 0CL8 SEEK ADDRESS OF THE TRACK TO 20050002 * BE PLACED IN THE WINDOW. 20100002 WICSKAM DS CL1 M - EXTENT NUMBER 20150002 WICSKBCH DS 0CL6 BBCCHH - SEEK ADDRESS 20200002 WICSKABB DS CL2 BB - BIN NUMBER 20250002 WICSKACH DS 0CL4 CCHH - SEEK ADDRESS 20300002 WICSKACC DS CL2 CC - CYLINDER NUMBER 20350002 WICSKAHH DS CL2 HH - HEAD NUMBER 20400002 WICSKAR DS CL1 R - RECORD NUMBER 20450002 * 20500002 WICSTART DS A ADDRESS OF THE FIRST CCW TO BE 20550002 * INTERPRETED. 20600002 WICAUDIT DS AL3 AUDIT TRAIL FLAGS. 20650002 * 20700002 WICPRT DS AL1 PROTECT KEY FROM UCB 20750002 WICRSTCP DS 0CL16 RESTART CHANNEL PROGRAM EXT 20800002 WICCCW1 DS D DATA TRANSFER CCW 20850002 WICCCW2 DS D TIC TO NEXT CCW 20900002 WICERPSW DS CL1 ERP CONTROL SWITCHES 20950002 WICERPOV EQU X'80' OVERRUN INCOMPLETE RESTARTED 21000002 WICERPWR EQU X'40' WRITE CCW RESTARTED- 21050002 * WILL BE RESET BY THE CPI 21100002 * USED TO TEST FOR WRITE 21150002 * PREREQUISITES 21200002 WICERPSV DS AL3 ADDRESS OF CCW THAT WAS 21250002 * RESTARTED. USED TO INTERPRET 21300002 * THE CSW. 21350002 WICCAM DS A ADDRESS OF THE COUNT FIELD OF 21400002 * THE CURRENT RECORD.(CURSOR) 21450002 WICRELTP DS H POSITION INDICATOR. 21500002 WICBFCNT EQU 1 BEFORE COUNT 21550002 WICBFKEY EQU 2 BEFORE KEY 21600002 WICBFDAT EQU 3 BEFORE DATA 21650002 WICAFDAT EQU 4 AFTER DATA 21700002 WICBFHA EQU 5 BEFORE HOME ADDRESS 21750002 WICBFR0 EQU 6 BEFORE RECORD ZERO 21800002 WICAFR0 EQU 7 AFTER RECORD ZERO 21850002 * 21900002 WICKL DS H CURRENT KEY LENGTH 21950002 WICDL DS F CURRENT DATA LENGTH 22000002 * 22050002 WICAVXFR DS F NUMBER OF BYTES AVAILABLE FOR 22100002 * A READ OR NON-FORMATTED WRITE. 22150002 WICREQXF DS F ACCUMULATED BYTES TRANSFERRED 22200002 * FOR AN AREA(COUNT, KEY OR DATA) 22250002 * DURING A READ OF NON-FORMATTING 22300002 * WRITE CCW. 22350002 WICOFLG1 DS CL1 FLAGS FOR CURRENT OP CODE 22400002 * 22450002 WICWCKD EQU X'80' WRITE COUNT KEY DATA 22500002 WICWSCKD EQU X'40' WRITE SPECIAL COUN KEY DATA 22550002 WICERASE EQU X'20' ERASE 22600002 WICFMTW EQU X'10' FORMAT WRITE SET FOR WCKD, 22650002 * WSPCKD, AND ERASE 22700002 WICOVFOP EQU X'08' SET FOR RD, RKD, RCKD, WD, WKD 22750002 * QUALIFIES FOR OVERFLOW 22800002 * PROCESSING 22850002 WICSCHTC EQU X'04' SEARCH TIC COMBINATION 22900002 WICSID EQU X'02' SEARCH ID OP CODE 22950002 * 23000002 WICOFLG2 DS CL1 FLAGS FOR CURRENT OP CODE 23050002 * 23100002 WICXFCOM EQU X'80' TRANSFER COMPLETE OR NOT 23150002 * DESIRED 23200002 WICDATAX EQU X'40' INDICATE THAT TRANSFER HAS 23250002 * BEEN INITIATED 23300002 WICINTRP EQU X'20' INDICATE THAT A CONDITION 23350002 * EXEIST FOR ENDING THE CHANNEL 23400002 * PROGRAM INTERPRETATION 23450002 WICERROR EQU X'10' INDICATE THAT AN ERROR HAS 23500002 * BEEN DETECTED AFTER THE 23550002 * OPERATION HAS STARTED 23600002 WICSCHEQ EQU X'08' SET WHEN SID EQUAL OR SK 23650002 * EQUAL OP CODE IS USED. 23700002 * IF SEARCH IS A FULL SEARCH 23750002 * THEN FLAG WICFSIDE OR 23800002 * WICFSKE IS SET 23850002 WICDC EQU X'04' DATA CHAINING REQUESTED 23900002 WICWRTIP EQU X'02' WRITE IN PROCESS 23950002 * 24000002 WICSEQFG DS CL1 FLAGS FOR SEQUENCE CHECKING 24050002 * 24100002 WICLWCKD EQU X'80' LAST OPERATION A WCKD 24150002 WICFSIDE EQU X'40' A FULL SID EQUAL HAS BEEN 24200002 * SATISFIED 24250002 WICFSKE EQU X'20' A FULL SK EQUAL HAS BEEN 24300002 * SATISFIED 24350002 WICTICFG EQU X'10' TIC BEING PROCESSED 24400002 * 24450002 WICXOFLG DS CL1 ACCROSS OP CODE FLAG 24500002 * 24550002 WICNDXPT EQU X'80' INDEX POINT SWITCH 24600002 WICRCSKT EQU X'40' READ COUNT SEARCH KEY TIC 24650002 * COMBINATION DETECTED 24700002 WICWORK DS A GENERAL WORK AREA. 24750002 WICERDSP DS H DISPLACEMNT INTO ERROR TABLE 24800002 WICLSTOP DS AL1 OPCODE OF LAST CCW. 24850002 WICCUROP DS AL1 CURRENT OP CODE 24900002 WICRESTA DS CL1 FLAG TO RESTART CONDITIONS 24950002 WICPCIRS EQU X'80' RESTARTING FROM PCI EXIT 25000002 WICOVFIP EQU X'40' RESTARTING FROM OVERFLOW 25050002 * RECORD PROCESSING 25100002 WICSEKRS EQU X'20' SEEK ROUTINE CALLED THE TRK 25150002 * ROUTINE 25200002 WICTRKRS EQU X'10' TRACK REQUEST RESTART FLAG 25250002 WICTRMSK EQU X'08' TRACK MANAGER DETECTED AN 25300002 * INVALID SEEK ARGGUMENT 25350002 WICRSTRT EQU X'01' FOR ALL RESTART SITUATIONS 25400002 WICFMASK DS CL1 FILE MASK. 25450002 * 25500002 WICFMVAL EQU B'00100110' MASK FOR CHECKING FILE MASK 25550002 * BITS 2, 5, AND 6 MUST BE ZERO 25600002 WICFMWRT EQU B'11000000' BITS 0-1 DESCRIBE THE WRITE 25650002 * BITS OF THE FILE MASK 25700002 WICFMW00 EQU B'00000000' '00' INHIBIT WHA AND WR0 25750002 WICFMW01 EQU B'01000000' '01' INHIBIT ALL WRITES 25800002 WICFMW10 EQU B'10000000' '10' INHIBIT WHA,WR0, FORMAT 25850002 * WRITES 25900002 WICFMW11 EQU B'11000000' '11' PERMIT ALL WRITES 25950002 * 26000002 WICFMSEK EQU B'00011000' BITS 3-5 DESCRIBE THE SEEK 26050002 * BITS OF THE FILE MASK 26100002 WICFMS00 EQU B'00000000' '00' PERMIT ALL SEEK 26150002 WICFMS01 EQU B'00001000' '01' PERMIT CYL AND HEAD SEEKS 26200002 WICFMS10 EQU B'00010000' '10' PERMIT HEAD SEEKS 26250002 WICFMS11 EQU B'00011000' '11' INHIBIT ALL SEEKS 26300002 WICDVTAB DS 0CL16 CONDENSED FORM OF DEVICE TABLE 26350002 WICMAXCC DS H HIGHEST CYLINDER 26400002 WICMAXHH DS H HIGHEST HEAD 26450002 WICTRKCP DS H TRACK CAPACITY 26500002 WICIGAP DS H NORMAL-KEYED RECORD OVERHEAD 26550002 WICLGAP DS H LAST-KEYED RECORD OVERHEAD 26600002 WICKEYGP DS H KEYED-RECORD OVERHEAD 26650002 WICTOL DS H TOLERANCE 26700002 WICTOLSW EQU WICTOL+1 SECOND BYTE OF TOLERANCE 26750002 * SERVES AS SWITCH AND IF ZERO 26800002 * INDICATES TOLERANCE DOES NOT 26850002 WICTOLAP EQU X'00' APPLY 26900002 WICSECT DS AL1 0-RPS NOT SUPPORTED, 26950002 * ^0-HIGHEST POSSIBLE SECTOR 27000002 WICNORPS EQU X'00' NOT AN RPS DEVICE IF ZERO 27050002 WICDEVTP DS CL1 DEVICE TYPE FROM UCB 27100002 * 27150002 WIC2314 EQU X'08' 2314 DEVICE 27200002 WICSENSE DS CL2 SAVE AREA FOR SENSE BYTES 27250002 WICEXPTR DS A POINTER TO DEB EXTENT 27300002 * 27350002 WICREGSV DS 0CL24 REGISTER SAVE AREA . 27400002 WICCSWSV DS 0CL7 SAVE AREA FOR CSW 27450002 WICCCWER DS 0CL8 FAKE ERROR CCW 27500002 WICRGSV0 DS F FIRST SLOT 27550002 WICRGSV1 DS F SECOND SLOT 27600002 WICRGSV2 DS F THIRD SLOT 27650002 WICRGSV3 DS F FOURTH SLOT 27700002 WICRGSV4 DS F FIFTH SLOT 27750002 WICRGSV5 DS F SIXTH SLOT 27800002 WICDATND DS A ADDRESS OF THE END OF CURRENT 27850002 * TRACK. 27900002 WICTCB DS A ADDR OF TCB GETMAINED UNDER VS05944 27910002 * 27950002 WICCPINT EQU WICFMASK-WICAVXFR FIELDS WHICH WILL BE ZEROED OUT 28000002 * AT THE BEGINNING OF EACH CHAN- 28050002 * NEL PROGRAM AND ARE THE FOLLOW- 28100002 * ING 28150002 * WICAVXFR 28200002 * WICREQXF 28250002 * WICOFLG1 28300002 * WICOFLG2 28350002 * WICSEQFG 28400002 * WICXOFLG 28450002 * WICWORK 28500002 * WICERDSP 28550002 * WICLSTOP 28600002 * WICCUROP 28650002 * WICRESTA 28700002 WICOPINT EQU WICSEQFG-WICAVXFR FIELD WHICH WILL BE ZEROED OUT 28750002 * AT THE BEGINNING OF EACH OP 28800002 * CODE PROCESS AND ARE THE 28850002 * FOLLOWING 28900002 * WICAVXFR 28950002 * WICREQXF 29000002 * WICOFLG1 29050002 * WICOFLG2 29100002 MEND , */ 29150002 %WICB2: ; 30000002 * DECLARE 1 WICB BASED(VDSWICB) BDY(DWORD), 30050002 * 2 WICSEEKA CHAR(8), /*SEEK ADDRESS ADDRESS OF THE 30100002 * TRACK TO BE PLACED IN THE 30150002 * WINDOW */ 30200002 * 3 WICSKAM CHAR(1), /* EXTENT NUMBER */ 30250002 * 3 WICSKBCH CHAR(6), /* BBCCHH */ 30300002 * 4 WICSKABB CHAR(2), /* BB */ 30350002 * 4 WICSKACH CHAR(4), /* CCHH */ 30400002 * 5 WICSKACC CHAR(2), /* CC */ 30450002 * 5 WICSKAHH CHAR(2), /* HH */ 30500002 * 3 WICSKAR CHAR(1), /* R */ 30550002 * 2 WICSTART PTR(31), /* STARTING ADDRESS OF CHANNEL 30600002 * PROGRAM */ 30650002 * 2 WICAUDIT CHAR(3), /* AUDIT FLAGS */ 30700002 * 2 WICPRT FIXED(8), /* PROTECTION KEY OF CURRENT 30750002 * USER AND WICB AND WINDOW */ 30800002 * 2 WICRSTCP CHAR(16) BDY(DWORD), /* RESTART CHANNEL PROGRAM 30850002 * USED BY ERP FUNCTION */ 30900002 * 3 WICCCW1 CHAR(8) BDY(DWORD), /* FIRST CCW */ 30950002 * 3 WICCCW2 CHAR(8) BDY(DWORD), /* SECOND CCW */ 31000002 * 2 WICERPSW CHAR(1), /* ERP CONTROL SWITCHES */ 31050002 * 3 WICERPOV BIT(1), /* ERP RESTART OF OVERFLOW 31100002 * INCOMPLETE IN PROGRESS */ 31150002 * 3 WICERPWR BIT(1), /* WRITE CCW RESTART - WILL BE 31200002 * USED AND RESET BY THE CPI TO 31250002 * SATISFY THE WRITE PREREQUISITES 31300002 * FOR RESTARTED OVERFLOW 31350002 * INCOMPLETE WRITE CCWS */ 31400002 * 3 * BIT(6), /* UNUSED */ 31450002 * 2 WICERPSV PTR(24) BDY(WORD,2), /* ADDRESS OF CCW THAT WAS 31500002 * RESTARTED */ 31550002 * 2 WICCAM PTR(31), /* ADDRESS OF THE COUNT FIELD 31600002 * OF THE CURRENT RECORD */ 31650002 * 2 WICRELTP FIXED(15), /* POSITON IN CURRENT RECORD 31700002 * -COUNT KEY OR DATA R0 OR HA */ 31750002 * 2 WICKL FIXED(15), /* CURRENT KEY LENGTH */ 31800002 * 2 WICDL FIXED(31), /* CURRENT DATA LENGTH */ 31850002 * 2 WICAVXFR FIXED(31), /* NUMBER OF BYTES AVAILABLE 31900002 * FOR A READ OR NON-FORMATTED 31950002 * WRITE */ 32000002 * 2 WICREQXF FIXED(31), /* ACCUMULATED BYTES 32050002 * TRANSFERRED FOR AN AREA */ 32100002 * 2 WICOFLG1 BIT(8), /* FLAGS FOR CURRENT OPCODE */ 32150002 * 3 WICWCKD BIT(1), /* WRITE CKD */ 32200002 * 3 WICWSCKD BIT(1), /* WRITE SPECIALIAL CKD */ 32250002 * 3 WICERASE BIT(1), /* ERASE */ 32300002 * 3 WICFMTW BIT(1), /* FORMAT WRITE SET FOR WCKD */ 32350002 * 3 WICOVFOP BIT(1), /* SET FOR RD, RKD ,RCKD, WD, 32400002 * WKD QUALIFIES FOR OVERFLOW 32450002 * PROCESSING */ 32500002 * 3 WICSCHTC BIT(1), /* SRCHID TIC *-8 */ 32550002 * 3 WICSID BIT(1), /* SEARCH ID IN PROGRESS */ 32600002 * 3 * BIT(1), /* UNUSED */ 32650002 * 2 WICOFLG2 BIT(8), /* FLAGS FOR CURRENT OPCODE 32700002 * CONTINUED */ 32750002 * 3 WICXFCOM BIT(1), /* TRANSFER COMPLETE OR NOT 32800002 * DESIRED */ 32850002 * 3 WICDATAX BIT(1), /* TRANSFER HAS BEEN INITIATED 32900002 * */ 32950002 * 3 WICINTRP BIT(1), /* INDICATES THAT A CONDITION 33000002 * EXISTS FOR ENDING THE CP 33050002 * INTERPRETATION */ 33100002 * 3 WICERROR BIT(1), /* ERROR DETECTED AFTER THE 33150002 * OPERATION WAS INITIATED */ 33200002 * 3 WICSCHEQ BIT(1), /* INDICATES SID OR SRCH KEY IS 33250002 * USED. */ 33300002 * 3 WICDC BIT(1), /* DATA CHAINING REQUESTED */ 33350002 * 3 WICWRTIP BIT(1), /* WRITE OPERATION IN PROGRESS 33400002 * */ 33450002 * 2 WICSEQFG BIT(8), /* FLAGS FOR SEQUENCE CHECKING 33500002 * */ 33550002 * 3 WICLWCKD BIT(1), /* LAST OPERATION WAS A WCKD */ 33600002 * 3 WICFSIDE BIT(1), /* A FULL SID EQUAL HAS BEEN 33650002 * SATISFIED */ 33700002 * 3 WICFSKE BIT(1), /* A FULL SRCH KEY EQ HAS BEEN 33750002 * SATISFIED */ 33800002 * 3 WICTICFG BIT(1), /* TIC PROCESSING IN PROGRESS 33850002 * */ 33900002 * 2 WICXOFLG BIT(8), /* ACROSS OP CODE PROCESSING */ 33950002 * 3 WICNDXPT BIT(1), /* INDEX POINT SWITCH */ 34000002 * 3 WICRCSKT BIT(1), /* READ COUNT SRCH KEY TIC *-16 34050002 * COMBINATION IN PROGRESS */ 34100002 * 2 WICWORK FIXED(31), /* GENERAL WORK AREA */ 34150002 * 2 WICERDSP FIXED (15), /* ERROR TABLE DISPLACEMENT */ 34200002 * 2 WICLSTOP FIXED(8), /* OPCODE OF THE LAST CCW */ 34250002 * 2 WICCUROP FIXED(8), /* OPCODE OF THE CURRENT CCW */ 34300002 * 2 WICRESTA BIT(8), /* RESTART FLAGS */ 34350002 * 3 WICPCIRS BIT(1), /* PCI RESTART */ 34400002 * 3 WICOVFIP BIT(1), /* OVERFLOW INCOMPLETE RESTART 34450002 * */ 34500002 * 3 WICSEKRS BIT(1), /* SEEK ROUTINE CALLED THE 34550002 * TRACK MANAGER */ 34600002 * 3 WICTRKRS BIT(1), /* TRACK REQUEST RESTART FLAG 34650002 * */ 34700002 * 3 WICTRMSK BIT(1), /* INVVALID SEEK DETECTED 34750002 * BY THE TRACK MANAGER */ 34800002 * 3 * BIT(2), /* UNUSED */ 34850002 * 3 WICRSTRT BIT(1), /* FOR ALL RESTARTS */ 34900002 * 2 WICFMASK FIXED(8), /* FILE MASK */ 34950002 * 2 WICDVTAB, /* DEVICE TABLE INFORMATION */ 35000002 * 3 WICMAXCC FIXED(15), /* MAXIMUM CYLINDER NUMBER */ 35050002 * 3 WICMAXHH FIXED(15), /* MAXIMUM HEAD NUMBER */ 35100002 * 3 WICTRKCP FIXED(15), /* TRACK CAPACITY */ 35150002 * 3 WICIGAP FIXED(15), /* INTER RECORD OVERHEAD */ 35200002 * 4 WICIGP CHAR(2), /* SAME */ 35250002 * 3 WICLGAP FIXED(15), /* LAST RECORD OVERHEAD */ 35300002 * 4 WICLGP CHAR(2), /* SAME */ 35350002 * 3 WICKEYGP FIXED(15), /* KEYED RECORD OVERHEAD */ 35400002 * 4 WICKYGP CHAR(2), /* SAME */ 35450002 * 3 WICTOL FIXED(15), /* TOLERANCE */ 35500002 * 3 WICSECT FIXED(8), /* HIGH PERMISSABLE SECTOR - =0 35550030 * RPS NOT SUPPORTED */ 35600002 * 3 WICDEVTP FIXED(8), /* DEVICE TYPE */ 35650002 * 2 WICSENSE CHAR(2), /* SAVE AREA FOR SENSE 35700002 * INFORMATION */ 35750002 * 2 WICEXPTR PTR(31), /* POINTER TO THE EXTENT IN THE 35800002 * DEB */ 35850002 * 2 WICREGSV, /* REGISTER SAVE AREA */ 35900002 * 3 WICRGSV0 FIXED(31), /* FIRST SLOT */ 36000002 * 3 WICRGSV1 FIXED(31), /* SECOND SLOT */ 36050002 * 3 WICRGSV2 FIXED(31), /* THIRD SLOT */ 36100002 * 3 WICRGSV3 FIXED(31), /* FOURTH SLOT */ 36150002 * 3 WICRGSV4 FIXED(31), /* FIFTH SLOT */ 36200002 * 3 WICRGSV5 FIXED(31), /* SIXTH SLOT */ 36250002 * 2 WICDATND PTR(31), /* ADDRESS OF THE END OF THE 36300002 * CURRENT TRACK */ 36350002 * 2 WICTCB PTR(31), /* ADDR OF TCB GETMAINED 36360030 * UNDER @VS05944*/ 36370002 * WICCSWSV CHAR(7) DEFINED WICREGSV, /* SAVE AREA FOR CSW */ 36400002 * WICCCWER CHAR(8) DEFINED WICREGSV; /* FAKE ERROR CCW */ 36450002 % IF IDDSWAPP^='YES' %THEN 50000002 %GOTO WICBXX01; 50050002 DCL /* PARAMETER LIST EXCP INTERCEPT */ 50100002 1 EIFRRPRM BASED(SDWAPARM), /* EXCP INTERCEPT FRR PARAMETER 50150002 LIST */ 50160002 2 EIRQEPTR PTR(31), /* RQE ADDRESS */ 50200002 2 EIREG5 PTR(31), /* REGISTER 5 SAVED FOR RETURN 50250002 TO IOS */ 50300002 2 EIREG14 PTR(31), /* REGISTER 14 SAVED FOR RETURN 50350002 TO IOS */ 50400002 2 * CHAR(4), /* FLAGS */ 50450002 3 * CHAR(1), /* FLAG BYTE 1 */ 50500002 4 EIRECUR BIT(1); /* RECURSIVE ERROR */ 50550002 %WICBXX01:; 50560002 %IF IDDSWJRN ^= 'YES' %THEN 50570002 %GOTO WICBXX02; 50580002 @EJECT; 50590002 DCL /* PARAMETERS PASSED TO JOURNAL FRR FROM IDDWIJRN */ 50640002 1 JRFRRPRM BASED(SDWAPARM), /* BASE */ 50650002 2 JRTCBPTR PTR(31), /* A(TCB) PASSED TO WIJOURN */ 50700002 2 JRUCBPTR PTR(31); /* A(CURRENT UCB) */ 50750002 DCL /* PARAMETERS PASSED TO WIJOURN ESTAE ROUTINE */ 50800002 % IF IDDIN = 'YES' %THEN 50810002 % GOTO WICBYY01; 50820002 1 ESTJPRMS BASED(SDWAPARM), /* START */ 50850002 % GOTO WICBYY02; 50860002 %WICBYY01:; 50870002 1 ESTJPRMS, /* START */ 50880002 %WICBYY02:; 50890002 2 ESJTCB PTR(31), /* ADDRESS OF TCB */ 50900002 2 ESJUCB PTR(31), /* ADDRESS OF UCB */ 50950002 2 ESJSAVE PTR(31), /* ADDRESS OF SAVE AREA */ 51000002 2 ESJBASE PTR(31), /* BASE REGISTER IN WIJOURN */ 51050002 2 ESJDATA PTR(31),/* DATA REGISTER IN WIJOURN @Z40WSSR*/ 51100004 2 ESJTRFLG FIXED(31); /* ESTAE TRACE FLAG @Z40WSSR*/ 51110004 %WICBXX02:; 51150002 %IF IDDCLSSW ^= 'YES' %THEN 51160002 % GO TO WICBXX03; 51170002 DCL /* PARAMETERS PASSED TO WICLOSE FRR ROUTINE */ 51220002 1 CLSFRRPR BASED(SDWAPARM), /* START */ 51250002 2 CLVDSCB PTR(31), /* ADDRESS OF VDSCB */ 51300002 2 * CHAR(4), 51350002 3 * FIXED(8), 51400002 4 CLSTRMSW BIT(1); /* =1 TRACK MANAGER IN CONTROL 51450002 */ 51500002 %WICBXX03:; 51550002