* % GOTO VDSCB1; /* 10000002 MACRO 10050002 IDDVDSCB 10100002 VDSCB DSECT , */ 10150002 *%VDSCB1: ; 10200002 * 10250002 */* ************************************************************** */ 10300002 */* */ 10350002 */* ******* VIRTUAL DATA SET CONTROL BLOCK ****** */ 10400002 */* */ 10450002 */* MVM RELEASE 1 8/9/72,LEVEL = 1. */ 10500002 */* METHOD OF ACCESS */ 10550002 */* PL/S - DCL VDSCBPTR PTR */ 10600002 */* BAL - ONE DSECT PRODUCED. DO USING ON VDSCB. */ 10650002 */* */ 10700002 */* FUNCTION */ 10750002 */* THE VIO DATA SET CONTROL BLOCK CONTAINS THE FORMAT 1 */ 10800002 */* DSCB AND THE UCB AND POINTERS TO OTHER VIO CONTROL */ 10850002 */* BLOCKS AND PARAMETER LISTS AND SAVE AREAS. */ 10900002 */* */ 10950002 */* ************************************************************** */ 11000002 * 11050002 *%GO TO VDSCB2; /* 11100002 VDSUCB DS CL45 DIRECT ACCESS UCB FOR 20000002 * THIS DATA SET. 20050002 VDSSEEKA DS CL7 SEEK ADDR OF TRK IN THE WINDOW 20100002 VDSDSPCT DS A POINTER TO DSPCT HEADER 20150002 VDSWICB DS A POINTER TO WICB. 20200002 VDSVBPPL DS A POINTER TO VBPPL. 20250002 VDSWINDW DS A POINTER TO WINDOW. 20300002 VDSTRKSI DS H MAXIMUM TRACK SIZE IN BYTES 20350002 VDSWINSI DS H SIZE OF WINDOW IN BYTES 20400002 VDSABSTT DS H ABSOLUTE TRACK NUMBER OF FIRST 20450002 * TRACK IN THE DATA SET. 20500002 VDSNMTRK DS H NUMBER OF TRACKS IN THE DATA 20550002 * SET. 20600002 VDSRBN DS F NO PASSED BY IEFXB500 20650002 VDSDSCB DS CL125 FORMAT 1 DSCB. 20700002 MEND , */ 20750002 % VDSCB2: ; 30000002 * DECLARE 1 VDSCB BASED(VDSCBPTR), 30050002 * 2 VDSUCB CHAR(45), /* UCB FOR A VIRTUAL DEVICE */ 30100002 * 2 VDSSEEKA CHAR(7), /* SEEK ADDR OF TRK IN WINDOW*/ 30150002 * 2 VDSDSPCT PTR(31), /* POINTER TO DSPCT HEADER */ 30250002 * 2 VDSWICB PTR(31), /* POINTER TO WICB */ 30300002 * 2 VDSVBPPL PTR(31), /* POINTER VBPPL */ 30350002 * 2 VDSWINDW PTR(31), /* POINTER TO WINDOW */ 30400002 * 2 VDSTRKSI FIXED(15), /* MAXIMUM TRACK SIZE IN BYTES*/30450002 * 2 VDSWINSI FIXED(15), /* SIZE OF THE WINDOW IN BYTES*/30500002 * 2 VDSABSTT FIXED(15), /* ABSOLUTE TRACK NUMBER OF THE 30550002 * FIRST TRACK OF THE DATA SET */ 30600002 * 2 VDSNMTRK FIXED(15), /* NUMBER OF TRACKS IN THE DATA 30650002 * SET */ 30700002 * 2 VDSRBN FIXED(32), /* NO. PASSED BY IEFXB500*/ 30750002 * 2 VDSDSCB CHAR(125); /* FORMAT 1 DSCB */ 30800002