* %GOTO PLSQVOD1; /* 00050002 MACRO 00100002 IHAQVOD 00150002 **/ 00200002 *%PLSQVOD1:; 00250002 */*********QUEUE VERIFICATION OUTPUT DATA AREA***********************/ 00300002 */* */ 00310002 */* OS/VS2 RELEASE 2 5/15/73 LEVEL=1 */ 00350002 */* BAL- DSECT ALWAYS PRODUCED, PERFORM USING ON QVOD */ 00400002 */* */ 00410002 */* PL/S - QVOD WILL BE BASED(QVPLODA) . */ 00420002 */* */ 00450002 */*******************************************************************/ 01300002 * %GOTO PLSQVOD2; /* 01350002 QVOD DSECT 01400002 *********************************************************************** 01410002 * * 01420002 * HEADER * 01430002 * * 01440002 *********************************************************************** 01442002 QVODHDR DS 0F HEADER TO DATA AREA 01450002 QVODRES1 DS CL1 RESERVED BYTE 1 01500002 QVODSIZE DS CL1 TOTAL AVAILABLE SIZE IN BYTES 01550002 QVODRES2 DS CL1 RESERVED BYTE 2 01600002 QVODUSED DS CL1 NUMBER OF BYTES USED 01650002 *********************************************************************** 01660002 * * 01670002 * COMMON SECTION * 01680002 * * 01690002 *********************************************************************** 01692002 QVODCMMN DSECT COMMON PORTION OF DATA AREA 01700002 QVODR15 DS 0F SAME CONTENTS AS REG 15 ON RETURN 01750002 QVODFLGS DS CL1 FLAG BYTE 01800002 QVODOVFL EQU X'80' IF TOP BIT ON, AN OVERFLOW OF 01850002 * RECORDING INFORMATION HAS OCCURRED 01950002 QVODRES3 EQU X'7F' RESERVED BITS 02010002 QVODNREC DS CL1 NUMBER OF ERRORS RECORDED 02050002 QVODNDET DS CL1 NUMBER OF ERRORS DETECTED 02100002 QVODRCOD DS CL1 RETURN CODE 02150002 QVODFENT DS 0CL16 FIRST ERROR ENTRY 02152002 *********************************************************************** 02160002 * * 02170002 * ERROR ENTRY * 02180002 * * 02190002 *********************************************************************** 02192002 QVODENT DSECT ERROR ENTRY FORMAT 02200002 QVODCDAT DS 0F CONSTANT DATA 02250002 QVODERRC DS CL1 ERROR CODE 02300002 QVODERRX DS CL1 EXTENDED ERROR CODE 02350002 QVODRES4 DS H RESERVED 02400002 QVODVDAT DS 0CL12 VARIABLE DATA 02450002 QVODVW1 DS F VARIABLE DATA WORD 1 02500002 QVODVW2 DS F VARIABLE DATA WORD 2 02550002 QVODVW3 DS F VARIABLE DATA WORD 3 02600002 QVODEND EQU * END OF QVOD 02650002 QVODENSZ EQU QVODEND-QVODENT SIZE OF QVOD 02700002 MEND 02750002 * */ 02800002 *%PLSQVOD2:; 02850002 * 02900002 */*******************************************************************/ 03410002 */* */ 03420002 */* HEADER */ 03430002 */* */ 03440002 */*******************************************************************/ 03442002 * DECLARE 1 QVODHDR BASED(QVPLODA) BDY(WORD), 03450002 * /*HEADER TO DATA AREA */ 03600002 * 03610002 * 5 QVODRES1 PTR(8), /*RESERVED BYTE 1 */ 03650002 * 03660002 * 5 QVODSIZE PTR(8), /*TOTAL AVAILABLE SIZE, */ 03700002 * /* IN BYTES */ 03710002 * 5 QVODRES2 PTR(8), /*RESERVED BYTE 2 */ 03750002 * 03752002 * 5 QVODUSED PTR(8); /*NUMBER OF BYTES USED */ 03760002 * 03800002 */*******************************************************************/ 03810002 */* */ 03820002 */* COMMON SECTION */ 03830002 */* */ 03840002 */*******************************************************************/ 03842002 * DECLARE 1 QVODVRA BASED BDY(WORD), 03850002 * 03852002 * 4 QVODCMMN, /*COMMON PORTION OF DATA AREA*/ 03860002 * 03900002 * 5 QVODR15, /*SAME CONTENTS AS REG 15 ON */ 03950002 * /*RETURN */ 03970002 * 6 QVODFLGS BIT(8), /*FLAG BYTE */ 04050002 * 04060002 * 7 QVODOVFL BIT(1), /*IF ON, OVERFLOW OF RECORDING*/ 04100002 * /*INFORMATION HAS OCURRED */ 04150002 * 7 QVODRES3 BIT(7), /*REMAINDER OF BYTE RESERVED */ 04250002 * 04300002 * 6 QVODNREC PTR(8), /*NUMBER OF ERRORS RECORDED */ 04350002 * 04400002 * 6 QVODNDET PTR(8), /*NUMBER OF ERRORS RECORDED */ 04450002 * 04500002 * 6 QVODRCOD PTR(8), /*RETURN CODE */ 04550002 * 04600002 */*******************************************************************/ 04610002 */* */ 04620002 */* ERROR ENTRY */ 04630002 */* */ 04640002 */*******************************************************************/ 04642002 * 4 QVODENT (15) CHAR(16) BDY(WORD), 04650002 * /*ERROR ENTRY */ 04700002 * 5 QVODCDAT, /*CONSTANT DATA */ 04750002 * 04800002 * 6 QVODERRC PTR(8), /*ERROR CODE */ 04850002 * 04900002 * 6 QVODERRX PTR(8), /*EXTENDED ERROR CODE */ 05000002 * 05050002 * 6 QVODRES4 PTR(15), /*RESERVED HALF WORD */ 05060002 * 05070002 * 5 QVODVDAT, /*VARIABLE DATA */ 05100002 * 05150002 * 6 QVODVW1 PTR(31), /*VARIABLE DATA WORD 1 */ 05200002 * 05250002 * 6 QVODVW2 PTR(31), /*VARIABLE DATA WORD 2 */ 05300002 * 05350002 * 6 QVODVW3 PTR(31); /*VARIABLE DATA WORD 3 */ 05400002