* %GOTO VTRACK1; /* 10000002 MACRO 10050002 IDDTRACK 10100002 VTRACK DSECT , */ 10150002 *%VTRACK1:; 10200002 * 10250002 */* **************************************************************** */ 10300002 */* */ 10350002 */* ***** VIRTUAL TRACK ***** */ 10400002 */* ALSO KNOWN AS VIRTUAL BUFFER OR WINDOW */ 10410002 */* */ 10450002 */* MVM RELEASE 1 8/9/72 LEVEL=0 */ 10500002 */* */ 10550002 */* METHOD OF ACCESS */ 10600002 */* */ 10650002 */* PLS - MUST HAVE ADDRESSABILITY ON THE VDSCB */ 10700002 */* BAL - ONE DSECT PRODUCED. DO USING ON VTRACK. */ 10750002 */* */ 10800002 */* FUNCTION */ 10850002 */* THE VIRTUAL TRACK CONTAINS THE DATA RECORDS WHICH REPRESENT */ 10900002 */* THE FORMAT OF THE DASD TRACK. IT IS ACQUIRED, RELEASED AND */ 10950002 */* INITIALIZED BY THE WINDOW INTERCEPT. */ 11000002 */* */ 11050002 */* **************************************************************** */ 11100002 *%GO TO VTRACK2; /* 11150002 * 20000002 VTDATEND DS AL4 DISPLACEMENT FROM BEGINNING 20050002 * OF TRACK TO THE END OF LAST 20100002 * BYTE OF LAST RECORD 20150002 VTRKBAL DS AL4 CURRENT TRACK BALANCE 20200002 VTST DS X TRACK STATUS 20250002 VTINIT EQU X'80' TRACK INITIALIZED 20300002 VTOVFL EQU X'40' LAST RECORD IS AN OVERFLOW SEG. 20350002 VTUPDATE EQU X'20' TRACK UPDATED 20400002 * 20450002 VTHA DS 0CL5 HOME ADDRESS 20500002 VTHAFLAG DS CL1 FLAG BYTE OF HOME ADDRESS 20550002 VTHACCHH DS CL4 ADDRESS PORTION OF HOME ADDR 20600002 VTR0 DS 0CL16 RECORD ZERO 20650002 VTR0CNT DS CL8 R0 COUNT 20700002 VTR0DATA DS CL8 R0 DATA 20750002 VTR1 DS X BEGINNING OF RECORD ONE 20800002 MEND , */ 20850002 %VTRACK2: ; 30000002 * DECLARE 1 VTRACK BASED(VDSWINDW), /* TRACK BEGINNING */ 30050002 * 2 VTDATEND FIXED (31), /* DISPLACEMENT FROM THE 30100002 * BEGINNING OF TRACK TO THE END 30150002 * OF LAST BYTE OF LAST RECORD */ 30200002 * 2 VTRKBAL FIXED (31), /* CURRENT TRACK BALANCE */ 30300002 * 2 VTST CHAR (1), /* TRACK STATUS */ 30350002 * 3 VTINIT BIT (1), /* TRACK INITIALIZED */ 30400002 * 3 VTOVFL BIT (1), /* LAST REC. IS OVERFLOW REC.*/ 30450002 * 3 VTUPDATE BIT (1), /* TRACK UPDATED */ 30550002 * 2 VTHA CHAR (5), /* HOME ADDRESS */ 30600002 * 3 VTHAFLAG CHAR (1), /* FLAG BYTE OF HOME ADDRESS */ 30650002 * 3 VTHACCHH CHAR (4), /* ADDRESS PORTION HOME ADDR */ 30700002 * 2 VTR0 CHAR (16), /* RECORD ZERO */ 30750002 * 3 VTR0CNT CHAR (8), /* R0 COUNT */ 30800002 * 3 VTR0DATA CHAR (8), /* R0 DATA */ 30850002 * 2 VTR1 CHAR (1); /* BEGINNING OF RECORD ONE */ 30900002