How to give VB Record in Linkage Section

Many mainframe programmers asked -Can give VB record in Linkages Section. The answer is yes. Below is the best example for VB Record:

LINKAGE SECTION.
01 RECORD-FLAGS PIC 9(8) BINARY.
 88 FIRST-REC VALUE 00.
88 MIDDLE-REC VALUE 04.
88 END-REC VALUE 08.
01 LEAVING-REC.
     05 LREC OCCURS 1 TO 200 TIMES
          DEPENDING ON LEAVING-REC-LEN PIC X.
01 RETURN-REC.
    05 RREC OCCURS 1 TO 200 TIMES
         DEPENDING ON RETURN-REC-LEN PIC X.
 01 OUTPUT-REC.
    05 OREC OCCURS 1 TO 200 TIMES
         DEPENDING ON OUTPUT-REC-LEN PIC X.
01 UNUSED1 PIC 9(8) BINARY.
01 LEAVING-REC-LEN PIC 9(8) BINARY.
01 RETURN-REC-LEN PIC 9(8) BINARY.
01 OUTPUT-REC-LEN PIC 9(8) BINARY.
01 EXITAREA-LEN PIC 9(4) BINARY.
01 EXITAREA.
    05 EAREA OCCURS 1 TO 256 TIMES
        DEPENDING ON EXITAREA-LEN PIC X.
Advertisements

Author: Srini

Experienced software developer. Skills in Development, Coding, Testing and Debugging. Good Data analytic skills (Data Warehousing and BI). Also skills in Mainframe.