/* DATASET PAGE CORRESPONDENCE TABLE */ 03350002 /* */ 03400002 /* NAME : IDAVBPH */ 03450002 /* */ 03500002 /* OWNER : VIRTUAL BLOCK PROCESSOR(VBP) */ 03550002 /* */ 03600002 /* LANGUAGE : PL/S */ 03650002 /* */ 03700002 /* USAGE : USED BY VIO ONLY @Z40WSSR*/ 03750004 /* */ 03850002 /* DESCRIPTION: VBP'S CONTROL BLOCK THAT DESCRIBES @Z40WSSR*/ 03900004 /* THE VIO DATASET. IT POINTS TO AN @Z40WSSR*/ 03950004 /* EXTENSION THAT IS USED TO BUILD ASM @Z40WSSR*/ 03960004 /* AND RSM PARM LISTS(ACA & VCB) @Z40WSSR*/ 03970004 /* */ 04000002 /* STORAGE ACQUIRED BY IDAVBPO1 OR IDAVBPJ2 IN SWA @Z40WSSR*/ 04050004 /* STORAGE RELEASED BY IDAVBPS1 FOR DSPCT HEADER & @Z40WSSR*/ 04100004 /* IDAVBPS1/IDAVBPS2 FOR DSPCT- @Z40WSSR*/ 04105004 /* EXTENSION @Z40WSSR*/ 04106004 /* STATUS: VS2 RELEASE 4.1 @Z40WSSR*/ 04110004 /* LAST CHANGE: 10/07/75 @Z40WSSR*/ 04120004 /*D066500 @Z40WSSR*/ 04125004 /* */ 04150002 DCL 1 VBPDSPCT BASED BDY(WORD), 04200002 2 VBPHFIX BDY(WORD), /*FIXED SECTION */ 04250002 3 VBPHJJ BDY(WORD), /*SECTION JOURNALED */ 04300002 4 VBPHNAME CHAR(4), /* DSPCT BLOCK ID @Z40WSSR*/ 04305004 4 VBPHLEN FIXED(32), /* LENGTH OF HEADER */ 04350002 4 VBPHLGN CHAR(8) BDY(WORD),/*LOGICAL GROUP NUMBER */ 04400002 5 VBPHLGID FIXED(32), /* LOGICAL GROUP IDENTIFIER */ 04450002 6 VBPHLPG1 FIXED(16), /* ALL ZEROS */ 04500002 6 VBPHLPG2 FIXED(16), /* IDENTIFIER */04550002 4 VBPHSYM CHAR(8) BDY(WORD),/* STORAGE LOCATOR SYMBOL */ 04600002 5 VBPHSYM1 FIXED(32), /* 1ST SUBFIELD */ 04650002 5 VBPHSYM2 FIXED(32), /* 2ND SUBFIELD */ 04700002 4 VBPHPNP FIXED(15), /* IF VBPHPAS IS ON, 1 + NO. 04750004 OF PAGES ASSIGNED IN PRIOR OPERATION @Z40WSSR*/ 04760004 4 VBPHDSG FIXED(16), /* DSPAGEID GENERATOR */ 04850002 4 VBPHDSSZ FIXED(32), /* MAX. D/S SIZE IN PAGES */ 04900002 4 VBPHOPT BIT(8), /* PROCESSING OPTIONS */ 04950002 5 VBPHINS BIT(1), /* NOT USED */ 05000002 5 VBPHPGLD BIT(1), /* NOT USED */ 05050002 5 VBPHRST BIT(1), /* IF ON, DSPCT FROM JOB JOURNAL,05100004 TO BE RESET BY IDAVBPO1. @Z40WSSR*/ 05105004 5 VBPHPAS BIT(1), /* IF ON, ASSIGN DONE IN PRIOR 05150002 REGUEST */ 05160002 5 VBPHDEL BIT (1), /* IF ON THEN AN ACTIVATE 05250002 WAS ISSUED FOR THE LOGICAL 05252002 GROUP BUT THE LOGICAL GROUP 05254002 HAS BEEN RELEASED AND 05256002 DOESN'T EXIST @ZA00139*/ 05258002 5 VBPHPADD BIT(1), /* IF ON, ASSIGN MAP PAGES DURING 05260004 RESTART @Z40WSSR*/ 05270004 5 VBPHJRN BIT(1), /* IF VBPHJOU ON, PAGES ADDED SINCE 05275004 JOURNALING. ELSE, PAGES ADDED SINCE 05280004 CREATION @Z40WSSR*/ 05285004 5 VBPHJOU BIT(1), /* DSPCT SAVED/JOURNALED @Z40WSSR*/ 05290004 4 VBPHSTA BIT(8), /* STATUS BYTE */ 05300002 5 VBPHOPE BIT(1), /* IDAVBPO1 IN PROGRESS */ 05350002 5 VBPHRW BIT(1),/* IDAVBPP1 IN PROGRESS*/ 05400002 5 * BIT(1),/* NOT USED @Z40WSSR*/ 05450004 5 VBPHSCR BIT(1), /* IDAVBPS1 IN PROGRESS */ 05500002 5 VBPHCLO BIT(1), /* IDAVBPC1 IN PROGRESS */ 05550002 5 * BIT(3), /* NOT USED @Z40WSSR*/ 05555004 4 VBPHNMP FIXED(15),/* CURRENT NO OF DSPCT MAP PAGES*/ 05750002 4 VBPHMMP FIXED(15), /* MAX. MAP PAGES REQD. */ 05800002 4 VBPHWSZ FIXED(15), /* WINDOW SIZE IN PAGES @Z40WSSR*/ 05850004 4 VBPHWAD PTR(31), /* WINDOW ADDRESS */ 05900002 4 VBPHPRL PTR(32),/* RELATIVE PAGE NO OF 1ST PAGE 05950002 ASSIGNED TO WINDOW BY PRIOR ASSIGN REQUEST */ 05960002 4 VBPHRBN FIXED(32), /* RBN ASGNED BY IEFXB500 */ 06000002 3 VBPHBUFC PTR(31), /* ADDR OF BUFC */ 06050002 4 VBPHVOP PTR(31), /* ADDR OF VOPEN PARM LIST */ 06100002 3 VBPHFRAR PTR(31), /* PTR TO RECOVERY COMM. AREA */ 06150002 3 VBPHVCB PTR(31), /* ADDR OF DSPCT EXTENSION @Z40WSSR*/ 06200004 3 VBPHSAVE CHAR(72) BDY(WORD),/* 18 WORD REG. SAVE AREA */ 06350002 4 * PTR(31), 06400002 4 VBPHSAVO PTR(31), /* ADDR OF CALLERS SAVE AREA */ 06450002 3 SECSAVE CHAR(72) BDY(WORD),/* 2ND SAVE AREA */ 06500002 4 * PTR(31), 06550002 4 SECSAVO PTR(31), /* ADDR OF CALLERS SAVE AREA */ 06600002 4 DSGSAVE FIXED(16),/* DSPAGEID GENERATOR SAVED IN IDAVBPJ2 */ 06620002 4 LGNSAVE CHAR(8),/* LGN SAVED IN IDAVBPJ2 */ 06630002 4 OPTSAVE BIT(8), /* USED TO SAVE THE SCRATCH STATUS OF 06640002 THE DATA SET AND IS SAVED IN MODULE 06642002 IDAVBPJ2 @ZA00139*/ 06644002 3 VBPHSPUL BIT(8),/* SWA SUBPOOL NO. TO GET/FREEMAIN FOR THE DSPCT 06810002 MAP @VS07802*/ 06812002 3 VBPHJRNP PTR(24), /* ADDR OF IEFXB500 PASSED FROM IDDWIJRN TO 06820002 IDAVBPJ1 @Z30TSWT*/ 06822002 3 VBPHTCB PTR(32),/* TCB ADDR TO GET/FREEMAIN FOR THE DSPCT 06830002 MAP AND DSPCT EXTENSION @Z40WSSR*/ 06840004 2 VBPHMAD(*) PTR(31); /* MAP PAGE POINTERS. ONE PER 06850002 EACH MAP PAGE */ 06900002 06910004 /* DSPCT EXTENSION. IS IN LSQA SUBPOOL 255. @Z40WSSR*/ 06950004 /* NO. OF MOVEOUT/ASSIGN VCBS=SIZE OF WINDOW IN PAGES @Z40WSSR*/ 06960004 /* STORAGE ACQUIRED BY IDAVBPO1 & RELEASED BY @Z40WSSR*/ 07000004 /* IDAVBPS1 @Z40WSSR*/ 07050004 07060004 DCL 1 VBPVCB BDY(WORD) BASED(VBPHVCB), /* DSPCT EXTENSION @Z40WSSR*/ 07100004 2 VBPVFXD, 07102004 3 VBPVNAME CHAR(4), /* ACRONYM ID - VCB @Z40WSSR*/ 07110004 3 VBPVLEN FIXED(31), /* LENGTH OF DSPCT EXTENSION @Z40WSSR*/ 07120004 3 VBPVMAP CHAR(24)BDY(WORD),/* USED AS AN ACA MAP & AS A 07150004 VCB FOR DSPCT PAGE MAPS @Z40WSSR*/ 07200004 3 VCBSAVAD PTR(31), /* PTR TO 1ST VCB @Z40WSSR*/ 07205004 3 VBPVAPTR PTR(31), /* ADDR OF ASSIGN VCBS @Z40WSSR*/ 07210004 2 VBPVMOVE(*) CHAR(24);/* MOVEOUT VCBS @Z40WSSR*/ 07250004 DCL VBPVASIN(*) CHAR(24) BASED(VBPVAPTR); /* ASSIGN VCBS @Z40WSSR*/ 07300004