*/********************************************************************/ 00050004 */* */ 00100004 */* MACRO NAME = IDARDF */ 00150004 */* */ 00200004 */* DESCRIPTIVE NAME = VSAM RECORD DEFINITION FIELD */ 00250004 */* */ 00300004 */* FUNCTION = DESCRIBES THE RECORD DEFINITION FIELD OF A VSAM */ 00350004 */* RECORD */ 00360004 */* */ 00500004 */* INCLUDED MACROS = NONE */ 00550004 */* */ 00600004 */* METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY */ 00650004 */* */ 00700004 */* CREATED BY = VSAM RECORD MANAGEMENT */ 00750004 */* */ 00800004 */* STATUS = VS/1 RELEASE 4 (CHANGE FLAG @X04SVXX) */ 00850004 */* */ 00900004 */* DATE OF LAST CHANGE = 9 AUG 74 */ 00950004 */* */ 01000004 */********************************************************************/ 01050004 * DCL 1 IDARDF BASED, /* RECORD DEFINITION FIELD */ 03000000 * 2 RDFRBYTE CHAR(1), /* */ 06000000 * 3 RDFTYPE BIT(1), /* R TYPE */ 09000000 * 3 RDFCTNU BIT(1), /* CONTROL INFO. CONTINUATION*/ 12000000 * 3 RDFSEG BIT(2), /* SEGMENT TYPE INDICATOR */ 15000000 * 4 RDFNOT1 BIT(1), /* OFF= NOT A SPAN RCD OR 15050004 * FIRST SEG OF S.R. @X04SVLC*/ 15060004 * /* ON = INTERMEDIATE OR LAST 15150004 * SEGMENT OF A SPANNED 15160004 * RCD @X04SVLC*/ 15200004 * 4 RDF1ST BIT(1), /* OFF = NOT A SPAN RCD OR LAST 15250004 * SEGMENT OF S.R. @X04SVLC*/ 15300004 * /* ON = FIRST OR INTERMEDIATE 15350004 * SEGMENT OF SPAN 15450004 * RECORD @X04SVLC*/ 15500004 * /* 00 COMPLETE REC @X04SVLC*/ 18000004 * /* 01 FIRST SEGMENT @X04SVLC*/ 21000004 * /* 10 LAST SEGMENT @X04SVLC*/ 24000004 * /* 11 INTERMEDIATE 27000004 * SEGMENT @X04SVLC*/ 27050004 * 3 RDFREPL BIT(1), /* 0 - LL IS RECORD LENGTH */ 30000000 * /* 1 - LL IS RECORD COUNT */ 33000000 * 3 RDFEMPTY BIT(1), /* EMPTY RECORD @X04SVLC*/ 33050004 * 2 RDFLL CHAR(2); /* */ 36000004 */********************************************************************/ 36050004 */* DATA DEFINITION */ 36060004 */********************************************************************/ 36100004 * DCL 1 IDADATA BASED, /* DATA DECLARE @X04SVLC*/ 36102004 * 2 AMDATA CHAR(*); /*@X04SVLC*/ 36104004 */********************************************************************/ 36150004 */* KEY DEFINITION */ 36200004 */********************************************************************/ 36250004 * DCL 1 IDAKEY BASED, /* KEY DECLARE @X04SVLC*/ 36300004 * 2 KEY CHAR(*); /* KEY DECLARE @X04SVLC*/ 36350004 GEN DATA; /*@X04SVLC*/ 39000004 RDFCTNUA EQU X'40' COMPLEX RDF INDICATOR 42000000 RDFCTNUX EQU X'FF'-RDFCTNUA RESET COMPLEX MASK 45000000 RDFREPLA EQU X'08' COUNT RDF INDICATOR 48000000 RDFREPLX EQU X'FF'-RDFREPLA RESET COUNT MASK 51000000 RDFEMPTI EQU X'04' EMPTY RECORD /*@X04SVLC*/ 51050004 RDFLEN EQU 3 LENGTH OF RDF 54000000 RDFLLOFF EQU 1 OFFSET WITHIN RDF TO LL 57000000 RDFSGLR EQU X'00' MASK FOR SINGLE RECORD RDF 60000000 RDFGRP EQU RDFCTNUA MASK FOR LL RDF OF A GROUP RDF 63000000 RDFCNT EQU RDFREPLA MASK FOR COUNT RDF 66000000 @ENDGEN; 69000000