* 00500001 * %GOTO TIOTL1; /* 00550001 MACRO 01000001 IEFTIOT1 , */ 01500001 *%TIOTL1 : ; 01550001 * 01600001 */* **************************************************************** */ 01650001 */* TASK INPUT/OUTPUT TABLE */ 01700001 */* */ 01750001 */* OS/VS1 RELEASE 4, OS/VS2 RELEASE 3, 09/30/74, LEVEL=1 */ 01800003 */* */ 01850001 */* METHOD OF ACCESS */ 01900001 */* BAL - A DSECT CARD SHOULD PRECEDE MACRO CALL. USING ON */ 01950001 */* TIOT1 GIVES ADDRESSABILITY FOR ALL SYMBOLS. */ 01960001 */* PL/S - DCL TIOTPTR PTR */ 01970001 */* **************************************************************** */ 01980001 *%GOTO TIOTL2; /* 01990001 SPACE 1 01992001 DS 0F 02000001 TIOT1 EQU * - TIOTPTR 02500002 TIOCNJOB DS CL8 - JOB NAME 03000002 TIOCSTEP DS CL16 - FOR A JOB STEP THAT IS NOT A PROCEDURE 03500002 * STEP, 8-BYTE JOB STEP NAME AND 8 RESERVED 03550002 * BYTES. FOR A JOB STEP THAT IS A 03600002 * PROCEDURE STEP, 8-BYTE PROCEDURE STEP 03650002 * NAME AND 8-BYTE JOB STEP NAME OF THE JOB 03700002 * STEP THAT CALLED THE PROCEDURE. 03750002 SPACE 1 03800002 *********************************************************************** 04000001 * * 04500003 * DD ENTRY * 05000002 * * 05050002 * THERE IS A 16-BYTE DD ENTRY FOR EACH DD STATEMENT IN THE * 05100002 * JOB STEP OR PROCEDURE STEP. (REFERENCES TO GDG (ALL) DATA * 05150002 * SETS, THE JOBLIB DATA SET OR PGM=*.DDNAME CREATE STILL * 05200002 * OTHER DD ENTRIES.) * 05250002 * * 05500001 * A DD ENTRY INCLUDES A DEVICE ENTRY. BEFORE ALLOCATION, * 06000002 * THERE MAY BE SEVERAL DEVICE ENTRIES IN EACH DD ENTRY. * 06500002 * * 07000003 *********************************************************************** 07500001 SPACE 1 07550002 TIOENTRY EQU * - TIODDPTR 08000002 TIOELNGH DS FL1 - LENGTH, IN BYTES, OF THIS ENTRY 08500002 * (INCLUDING ALL DEVICE ENTRIES) 08550002 TIOESTTA DS B - STATUS BYTE A 09000002 TIOSLTYP EQU X'80' - NONSTANDARD LABEL (TAPE) (OS/VS1) 09500003 * ENTRY NOT IN USE (OS/VS2) 09550003 TIOSPLTP EQU X'40' - DURING ALLOCATION, SPLIT CYLINDER 10000002 * PRIMARY. (THIS IS THE FIRST DD ENTRY FOR 10050002 * A SPLIT CYLINDER.) 10100002 * DURING STEP TERMINATION, NO UNALLOCATION 10150002 * NECESSARY. 10200002 TIOSPLTS EQU X'20' - DURING ALLOCATION, SPLIT CYLINDER 10500002 * SECONDARY. (THIS IS NOT THE FIRST DD 10550002 * ENTRY FOR A SPLIT CYLINDER.) 10600002 * DURING STEP TERMINATION, REWIND BUT NO 10650002 * UNLOADING. 10700002 TIOSJBLB EQU X'10' - JOBLIB INDICATOR 11000002 TIOSDADS EQU X'08' - DADSM ALLOCATION NECESSRY 11500002 TIOSLABL EQU X'04' - LABELED TAPE. IF BIT 0 IS OFF, SL OR 12000002 * SUL. IF BIT 0 IS ALSO ON, AL OR AUL. 12050002 TIOSDSP1 EQU X'02' - REWIND/UNLOAD THE TAPE VOLUME (TAPE) 12500002 * PRIVATE VOLUME (DIRECT ACCESS) MDC001 12550002 TIOSDSP2 EQU X'01' - REWIND THE TAPE VOLUME (TAPE) 13000002 * PUBLIC VOLUME (DIRECT ACCESS) MDC002 13050002 TIOERLOC DS 0CL2 - RELATIVE LOCATION OF POOL 15500002 TIOEWTCT DS CL1 - DURING ALLOCATION, NUMBER OF DEVICES 16000002 * REQUESTED FOR THIS DATA SET 16050002 TIOELINK DS CL1 - DURING ALLOCATION, LINK TO THE 17500002 * APPROPRIATE PRIME SPLIT, UNIT AFFINITY, 17550002 * VOLUME AFFINITY OR SUBALLOCATE TIOT 17600002 * ENTRY. AFTER ALLOCATION, FLAG BYTE. 17650002 TIOSYOUT EQU X'80' - THIS IS A SYSOUT DATA SET THAT CONTAINS 20500002 * DATA (AFTER CLOSE) 20550002 TIOTRV01 EQU X'40' - RESERVED MDC006 21000002 TIOTTERM EQU X'20' - DEVICE IS A TERMINAL 21500002 TIOEDYNM EQU X'10' - DYNAM CODED ON DD STATEMENT 22000002 TIOEQNAM EQU X'08' - QNAME CODED ON DD STATEMENT 22500002 TIOESYIN EQU X'04' - ENTRY FOR SPOOLED SYSIN DATA SET 22550002 * (OS/VS1) MDC003 22560002 TIOESYOT EQU X'02' - ENTRY FOR SPOOLED SYSOUT DATA SET 22600002 * (OS/VS1) MDC004 22602002 TIOESSDS EQU X'02' - ENTRY FOR A SUBSYSTEM DATA SET 22610002 * (OS/VS2) MDC005 22620002 TIOTREM EQU X'01' - ENTRY FOR A REMOTE DEVICE ICB340 22650002 TIOEDDNM DS CL8 - DD NAME 24000002 TIOEJFCB DS CL3 - RELATIVE TRACK ADDRESS (TTR) OF THE JFCB. 24500002 * (DURING ALLOCATION, TTR OF THE SIOT IF 24550002 * SUBALLOCATE WAS REQUESTED.) 24600002 TIOESTTC DS B - STATUS BYTE C. USED DURING ALLOCATION 25000002 * ONLY. SET TO ZEROS AT END OF ALLOCATION. 25050002 TIOSDKCR EQU X'80' - MAIN STORAGE OR DASD ADDRESS 25500002 TIOSDEFR EQU X'40' - DEFERRED MOUNT 26000002 TIOSAFFP EQU X'20' - PRIMARY UNIT AFFINITY 26500002 TIOSAFFS EQU X'10' - SECONDARY UNIT AFFINITY 27000002 TIOSVOLP EQU X'08' - PRIMARY VOLUME AFFINITY 27500002 TIOSVOLS EQU X'04' - SECONDARY VOLUME AFFINITY 28000002 TIOSBALP EQU X'02' - PRIMARY SUBALLOCATE 28500002 TIOSBALS EQU X'01' - SECONDARY SUBALLOCATE 29000002 SPACE 1 29050002 *********************************************************************** 29500001 * * 30000003 * DEVICE ENTRIES * 30500002 * * 31000001 * 1. DURING ALLOCATION - * 31500002 * ONE DEVICE ENTRY FOR EACH DEVICE REQUIRED, OR FOR * 32000001 * EACH PUBLIC DEVICE ELIGIBLE. * 32500001 * * 33000001 * 2. DURING PROBLEM PROGRAM - * 33500002 * ONE DEVICE ENTRY FOR EACH ALLOCATED DEVICE. * 34000002 * * 34500001 *********************************************************************** 35000001 SPACE 1 35050002 TIOESTTB DS B - STATUS BYTE B - DURING ALLOCATION AND 35500002 * DURING PROBLEM PROGRAM 35550002 TIOSUSED EQU X'80' - DATA SET IS ON DEVICE 36000002 TIOSREQD EQU X'40' - DATA SET WILL USE DEVICE 36500002 TIOSPVIO EQU X'20' - DEVICE VIOLATES SEPARATION 37000002 TIOSVLSR EQU X'10' - VOLUME SERIAL PRESENT 37500002 TIOSSETU EQU X'08' - SETUP MESSAGE REQUIRED 38000002 TIOSMNTD EQU X'04' - IF 0, DELETE UNLOADED VOLUME IF UNLOAD 38500002 * REQUIRED. IF 1, RETAIN UNLOADED VOLUME 38550002 * IF UNLOAD REQUIRED. 38600002 TIOSUNLD EQU X'02' - UNLOAD REQUIRED 39000002 TIOSVERF EQU X'01' - VERIFICATION REQUIRED 39500002 TIOEFSRT DS AL3 - DURING PROBLEM PROGRAM, ADDRESS OF UCB. 40000002 * DURING ALLOCATION, BITS 0-11 CONTAIN 40050002 * OFFSET, IN THE UCB LOOK-UP TABLE, TO AN 40100002 * ADDRESS FOR A DEVICE REQUIRED OR ELIGIBLE 40150002 * FOR THIS DATA SET. THE UCB LOOK-UP TABLE 40200002 * HAS ADDRESSES OF UCB'S. BITS 12-23 40250002 * CONTAIN OFFSET, IN THE STEP VOLUME TABLE 40300002 * (VOLT), TO THE VOLUME SERIAL NUMBER FOR 40350002 * THE VOLUME REQUIRED OR ELIGIBLE FOR THIS 40400002 * DATA SET. 40450002 SPACE 2 40460002 * TIOT POOL ENTRY 40500001 SPACE 1 40550002 POOLSTAR EQU * 41000001 DS CL1 - RESERVED 41500002 TIOPNSLT DS FL1 - NUMBER OF SLOTS FOR POOL 42000002 DS CL1 - RESERVED 42500002 TIOPNSRT DS FL1 - NUMBER OF DEVICES (FILLED SLOTS) 43000002 TIOPPOOL DS CL8 - POOL NAME 44000002 TIOPSTTB DS XL1 - STATUS OF SLOT 44500002 TIOPSLOT DS AL3 - UCB ADDRESS OR EMPTY SLOT 45000002 TIOTFEND DS CL4 - FINAL END OF THE TIOT - BINARY ZEROS 45500002 MEND , */ 46500001 *%TIOTL2:; 47000001 * 47100001 * DECLARE 47500001 * 1 TIOT1 BASED(TIOTPTR) BDY(WORD), 48000002 * 2 TIOCNJOB CHAR(8), /* JOB NAME */ 48500002 * 2 TIOCSTEP CHAR(16); /* FOR A JOB STEP THAT IS 49000002 * NOT A PROCEDURE STEP, 49050002 * 8-BYTE JOB STEP NAME AND 49100002 * 8 RESERVED BYTES. FOR A 49150002 * JOB STEP THAT IS A 49200002 * PROCEDURE STEP, 8-BYTE 49250002 * PROCEDURE STEP NAME AND 49300002 * 8-BYTE JOB STEP NAME OF 49350002 * THE JOB STEP THAT CALLED 49400002 * THE PROCEDURE. */ 49450002 * 49460002 */********************************************************************/ 49500001 */* */ 50000001 */* DD ENTRY */ 50500002 */* */ 50550002 */* THERE IS A 16-BYTE DD ENTRY FOR EACH DD STATEMENT IN THE */ 50600002 */* JOB STEP OR PROCEDURE STEP. (REFERENCES TO GDG (ALL) DATA */ 50650002 */* SETS, THE JOBLIB DATA SET OR PGM=*.DDNAME CREATE STILL */ 50700002 */* OTHER DD ENTRIES.) */ 50750002 */* */ 51000001 */* A DD ENTRY INCLUDES A DEVICE ENTRY. BEFORE ALLOCATION, */ 51500002 */* THERE MAY BE SEVERAL DEVICE ENTRIES IN EACH DD ENTRY. */ 52000002 */* */ 52500001 */********************************************************************/ 53000001 * 53100001 * DECLARE 53500001 *%IF TIOENPTR='' %THEN 53550001 * %GOTO TIOTA1; 53600001 * 1 TIOENTRY BASED(TIOENPTR) BDY(WORD), 54000002 *%GOTO TIOTA3; 54050001 *%TIOTA1 : ; 54100001 *%IF IKEPLS='2' %THEN 54150001 * %GOTO TIOTA2; 54200001 * 1 TIOENTRY BASED(ADDR(TIOT1)+24) BDY(WORD), 54250002 *%GOTO TIOTA3; 54260001 *%TIOTA2 : ; 54300001 * 1 TIOENTRY DEF(TIOT1) POS(25) BDY(WORD), 54350002 *%TIOTA3 : ; 54400001 * 2 TIOELNGH PTR(8), /* LENGTH, IN BYTES, OF THIS 54500002 * ENTRY (INCLUDING ALL 54550002 * DEVICE ENTRIES) */ 54600002 * 2 TIOESTTA BIT(8), /* STATUS BYTE A */ 55000002 * 3 TIOSLTYP BIT(1), /* NONSTANDARD LABEL (TAPE) 55500003 * (OS/VS1) 55550003 * ENTRY NOT IN USE (OS/VS2)*/ 55600003 * 3 TIOSPLTP BIT(1), /* DURING ALLOCATION, SPLIT 56000002 * CYLINDER PRIMARY. (THIS 56050002 * IS THE FIRST DD ENTRY FOR 56100002 * A SPLIT CYLINDER.) 56150002 * DURING STEP TERMINATION, 56200002 * NO UNALLOCATION 56250002 * NECESSARY. */ 56300002 * 3 TIOSPLTS BIT(1), /* DURING ALLOCATION, SPLIT 56500002 * CYLINDER SECONDARY. 56550002 * (THIS IS NOT THE FIRST DD 56600002 * ENTRY FOR A SPLIT 56650002 * CYLINDER.) DURING STEP 56700002 * TERMINATION, REWIND BUT 56750002 * NO UNLOADING. */ 56800002 * 3 TIOSJBLB BIT(1), /* JOBLIB INDICATOR */ 57000002 * 3 TIOSDADS BIT(1), /* DADSM ALLOCATION 57500002 * NECESSARY */ 57550002 * 3 TIOSLABL BIT(1), /* LABELED TAPE. IF BIT 0 58000002 * IS OFF, SL OR SUL. IF 58050002 * BIT 0 IS ALSO ON, AL OR 58100002 * AUL. */ 58150002 * 3 TIOSDSP1 BIT(1), /* REWIND/UNLOAD THE TAPE 58500002 * VOLUME (TAPE) 58510002 * PRIVATE VOLUME (DIRECT 58550002 * ACCESS) MDC001*/ 58600002 * 3 TIOSDSP2 BIT(1), /* REWIND THE TAPE VOLUME 59000002 * (TAPE) 59010002 * PUBLIC VOLUME (DIRECT 59050002 * ACCESS) MDC002*/ 59100002 * 2 TIOERLOC CHAR(2), /* RELATIVE LOCATION OF POOL*/ 60500002 * 3 TIOEWTCT PTR(8), /* DURING ALLOCATION, NUMBER 61000002 * OF DEVICES REQUESTED FOR 61050002 * THIS DATA SET */ 61100002 * 3 TIOELINK CHAR(1), /* DURING ALLOCATION, LINK 63000002 * TO THE APPROPRIATE PRIME 63050002 * SPLIT, UNIT AFFINITY, 63100002 * VOLUME AFFINITY OR 63150002 * SUBALLOCATE TIOT ENTRY. 63200002 * AFTER ALLOCATION, FLAG 63250002 * BYTE */ 63300002 * 4 TIOSYOUT BIT(1), /* THIS IS A SYSOUT DATA SET 66000002 * THAT CONTAINS DATA 66050002 * (AFTER CLOSE) */ 66100002 * 4 TIOTRV01 BIT(1), /* RESERVED MDC006*/ 66500002 * 4 TIOTTERM BIT(1), /* DEVICE IS A TERMINAL */ 67000002 * 4 TIOEDYNM BIT(1), /* DYNAM CODED ON DD 67500002 * STATEMENT */ 67550002 * 4 TIOEQNAM BIT(1), /* QNAME CODED ON DD 68000002 * STATEMENT */ 68010002 * 4 TIOESYIN BIT(1), /* ENTRY FOR SPOOLED SYSIN 68050002 * DATA SET (OS/VS1) MDC003*/ 68052002 * 4 TIOESYOT BIT(1), /* ENTRY FOR SPOOLED SYSOUT 68100002 * DATA SET (OS/VS1) MDC004*/ 68150002 * 5 TIOESSDS BIT(1), /* ENTRY FOR A SUBSYSTEM DATA 68200002 * SET (OS/VS2) MDC005*/ 68250002 * 4 TIOTREM BIT(1), /* ENTRY FOR A REMOTE DEVICE 68500002 * ICB340*/ 68550002 * 2 TIOEDDNM CHAR(8), /* DD NAME */ 69000002 * 2 TIOEJFCB CHAR(3), /* RELATIVE TRACK ADDRESS 69500002 * (TTR) OF THE JFCB. 69550002 * (DURING ALLOCATION, TTR 69600002 * OF THE SIOT IF SUBALLOCATE 69650002 * WAS REQUESTED.) */ 69700002 * 2 TIOESTTC BIT(8), /* STATUS BYTE C. USED 70000002 * DURING ALLOCATION ONLY. 70050002 * SET TO ZEROS AT END OF 70100002 * ALLOCATION. */ 70150002 * 3 TIOSDKCR BIT(1), /* MAIN STORAGE OR DASD 70500002 * ADDRESS */ 70550002 * 3 TIOSDEFR BIT(1), /* DEFERRED MOUNT */ 71000002 * 3 TIOSAFFP BIT(1), /* PRIMARY UNIT AFFINITY */ 71500002 * 3 TIOSAFFS BIT(1), /* SECONDARY UNIT AFFINITY */ 72000002 * 3 TIOSVOLP BIT(1), /* PRIMARY VOLUME AFFINITY */ 72500002 * 3 TIOSVOLS BIT(1), /* SECONDARY VOLUME AFFINITY*/ 73000002 * 3 TIOSBALP BIT(1), /* PRIMARY SUBALLOCATE */ 73500002 * 3 TIOSBALS BIT(1), /* SECONDARY SUBALLOCATE */ 74000002 * 74050002 */********************************************************************/ 74500001 */* */ 75000001 */* DEVICE ENTRIES */ 75500002 */* */ 76000001 */* 1. DURING ALLOCATION - */ 76500002 */* ONE DEVICE ENTRY FOR EACH DEVICE REQUIRED, OR FOR */ 77000001 */* EACH PUBLIC DEVICE ELIGIBLE. */ 77500001 */* */ 78000001 */* 2. DURING PROBLEM PROGRAM - */ 78500002 */* ONE DEVICE ENTRY FOR EACH ALLOCATED DEVICE. */ 79000002 */* */ 79500001 */********************************************************************/ 80000001 * 80050002 * 2 TIOESTTB BIT(8) BDY(WORD), /* STATUS BYTE B - DURING 80500002 * ALLOCATION AND DURING 80550002 * PROBLEM PROGRAM */ 80600002 * 3 TIOSUSED BIT(1), /* DATA SET IS ON DEVICE */ 81000002 * 3 TIOSREQD BIT(1), /* DATA SET WILL USE DEVICE */ 81500002 * 3 TIOSPVIO BIT(1), /* DEVICE VIOLATES 82000002 * SEPARATION */ 82050002 * 3 TIOSVLSR BIT(1), /* VOLUME SERIAL PRESENT */ 82500002 * 3 TIOSSETU BIT(1), /* SETUP MESSAGE REQUIRED */ 83000002 * 3 TIOSMNTD BIT(1), /* IF 0, DELETE UNLOADED 83500002 * VOLUME IF UNLOAD 83550002 * REQUIRED. IF 1, RETAIN 83600002 * UNLOADED VOLUME IF 83650002 * UNLOAD REQUIRED. */ 83700002 * 3 TIOSUNLD BIT(1), /* UNLOAD REQUIRED */ 84000002 * 3 TIOSVERF BIT(1), /* VERIFICATION REQUIRED */ 84500002 * 2 TIOEFSRT PTR(24), /* DURING PROBLEM PROGRAM, 85000002 * ADDRESS OF THE UCB. 85050002 * DURING ALLOCATION, BITS 85100002 * 0-11 CONTAIN OFFSET, IN 85150002 * THE UCB LOOK-UP TABLE, TO 85200002 * AN ADDRESS FOR A DEVICE 85250002 * REQUIRED OR ELIGIBLE FOR 85300002 * THIS DATA SET. THE UCB 85350002 * LOOK-UP TABLE HAS 85400002 * ADDRESSES OF UCB'S. 85450002 * BITS 12-23 CONTAIN OFFSET, 85460002 * IN THE STEP VOLUME TABLE 85470002 * (VOLT) TO THE VOLUME 85480002 * SERIAL NUMBER FOR THE 85490002 * VOLUME REQUIRED OR 85492002 * ELIGIBLE FOR THIS DATA 85494002 * SET. */ 85496002 * 85498002 */********************************************************************/ 85500001 */* */ 86000001 */* TIOT POOL ENTRY */ 86500001 */* */ 87000001 */********************************************************************/ 87500001 * 87550002 * 2 POOLSTAR, 88000002 * 3 * CHAR(1), /* RESERVED */ 88500002 * 3 TIOPNSLT PTR(8), /* NUMBER OF SLOTS FOR POOL */ 89000002 * 3 * CHAR(1), /* RESERVED */ 89050002 * 3 TIOPNSRT PTR(8), /* NUMBER OF DEVICES (FILLED 90000002 * SLOTS) */ 90500002 * 3 TIOPPOOL CHAR(8), /* POOL NAME */ 91000002 * 3 TIOPSTTB CHAR(1), /* STATUS OF SLOT */ 91500002 * 3 TIOPSLOT PTR(24), /* UCB ADDRESS OR EMPTY SLOT*/ 92000002 * 3 TIOTFEND CHAR(4); /* FINAL END OF THE TIOT - 92500002 * BINARY ZEROS */ 93000002 * 93050002 */********************************************************************/ 93100002 */* */ 93150002 */* DECLARE FOR MULTIPLE DEVICE ENTRIES */ 93200002 */* */ 93250002 */********************************************************************/ 93300002 * 93350002 *DECLARE 93400002 *%IF IKEPLS='2' %THEN 93450002 * %GOTO TIOTA4; 93500002 * 1 TIOEDEVE (*) FIXED(31) BASED(ADDR(TIOESTTB)), 93550002 *%GOTO TIOTA5; 93600002 *%TIOTA4 : ; 93650002 * 1 TIOEDEVE (*) FIXED(31) DEF(TIOESTTB), 93700002 *%TIOTA5 : ; 93750002 * 2 TIOSTTB BIT(8), /* STATUS BYTE B - DURING 93800002 * ALLOCATION AND DURING 93810002 * PROBLEM PROGRAM */ 93820002 * 3 TIOUSED BIT(1), /* DATA SET IS ON DEVICE */ 93850002 * 3 TIOREQD BIT(1), /* DATA SET WILL USE DEVICE */ 93900002 * 3 TIOPVIO BIT(1), /* DEVICE VIOLATES 93950002 * SEPARATION */ 93960002 * 3 TIOVLSR BIT(1), /* VOLUME SERIAL PRESENT */ 94000002 * 3 TIOSETU BIT(1), /* SETUP MESSAGE REQUIRED */ 94050002 * 3 TIOMNTD BIT(1), /* IF 0, DELETE UNLOADED 94100002 * VOLUME IF UNLOAD 94110002 * REQUIRED. IF 1, RETAIN 94120002 * UNLOADED VOLUME IF 94130002 * UNLOAD REQUIRED. */ 94140002 * 3 TIOUNLD BIT(1), /* UNLOAD REQUIRED */ 94150002 * 3 TIOVERF BIT(1), /* VERIFICATION REQUIRED */ 94200002 * 2 TIOUCBP PTR(24); /* DURING PROBLEM PROGRAM, 94250002 * ADDRESS OF THE UCB. 94300002 * DURING ALLOCATION, BITS 94350002 * 0-11 CONTAIN OFFSET, IN 94400002 * THE UCB LOOK-UP TABLE, TO 94450002 * AN ADDRESS FOR A DEVICE 94500002 * REQUIRED OR ELIGIBLE FOR 94550002 * THIS DATA SET. THE UCB 94600002 * LOOK-UP TABLE HAS 94650002 * ADDRESSES OF UCB'S. 94700002 * BITS 12-23 CONTAIN OFFSET, 94750002 * IN THE STEP VOLUME TABLE 94800002 * (VOLT) TO THE VOLUME 94850002 * SERIAL NUMBER FOR THE 94900002 * VOLUME REQUIRED OR 94950002 * ELIGIBLE FOR THIS DATA 95000002 * SET. */ 95050002