Dynamic Allocation of PS Dataset Using a COBOL program.

 Hi Mainframe,

In most of Mainframe Shops, we use JCL for Allocation of PS Dataset. But Many a times a requirement comes where we need to allocates a PS dataset dynamically within a COBOL program which catalog the Files and once catalog the Allocated PS Dataset can be used to perform various File I/O operations such as Open, Read, Write and Close file.

In order to Achieve these IBM has provide many Utility as such Sub program can be called in the COBOL main program as a Static call with the Appropriate TSO command to Allocate a new File Dynamically. 

Syntax for PS Data Set Allocations is: DSN(&SYSUID..MVS.TEST.FILE01) NEW TRACKS SPACE(100,100) UNIT(SYSDA) CATALOG

The file name is Specified in the DSN and any number of Files can be Allocated using IBM Supplied Utility.

The most come IBM Utility Used is: 'PUTENV'

This Utility or Subprogram is called STATICALLY with the Above mention DSN details....

       ID DIVISION.
       PROGRAM-ID.   GETENVX.
       AUTHOR.       Sandeep R Prajapati.
       DATE-WRITTEN.
       DATE-COMPILED.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT TEST-FILE ASSIGN TO DD1.
       DATA DIVISION.
       FILE SECTION.
       FD  TEST-FILE
           LABEL RECORDS ARE STANDARD
           BLOCK CONTAINS 0 RECORDS.
       01  TEST-REC           PIC X(80).
           EJECT
       WORKING-STORAGE SECTION.

       01  OUTPUT-REC.
           05  REC-NUM         PIC 9(10).
           05  FILLER          PIC X(70)        VALUE SPACES.

       01 WS-WORK-DSN PIC X(55) VALUE 'TTT.TTT.TTT'.
       01 WS-DYNAMIC-OPEN-AREA.
           05 FILE-NAME.
               10 FILLER PIC X(8)  VALUE 'DD1=DSN('.
               10 DSNAME PIC X(55) VALUE SPACE.
               10 FILLER PIC X(50) VALUE
                   ' NEW TRACKS SPACE(100,100) UNIT(SYSDA) CATALOG '.
               10 FILLER PIC X(01) VALUE X'00'.
           05 FILE-PTR POINTER.
           05 RC PIC S9(9) BINARY VALUE ZERO.
       01  FNAMES.
           05  FNAME-01             PIC X(55)    VALUE
               'Z80076.PS.TESTFILE.OUT01'.
           05  FNAME-02             PIC X(55)    VALUE
               'Z80076.PS.TESTFILE.OUT02'.
           05  FNAME-03             PIC X(55)    VALUE
               'Z80076.PS.TESTFILE.OUT03'.
           05  FNAME-04             PIC X(55)    VALUE
               'Z80076.PS.TESTFILE.OUT04'.
       01  FNAME-TABLE REDEFINES FNAMES.
           05  FNAME                PIC X(55)    OCCURS 4 TIMES.
       01  SUB                      PIC S9(9)    COMP-3.
       LINKAGE SECTION.
           EJECT
       PROCEDURE DIVISION.

           PERFORM
           VARYING SUB FROM 1 BY 1 UNTIL SUB > 4
               MOVE SPACE TO DSNAME
               MOVE FNAME(SUB)              TO WS-WORK-DSN
               STRING WS-WORK-DSN DELIMITED BY SPACE
                   ')' DELIMITED BY SIZE
                   INTO DSNAME
               DISPLAY 'FILE-NAME = ' FILE-NAME
               SET FILE-PTR TO ADDRESS OF FILE-NAME
               CALL 'PUTENV' USING BY VALUE FILE-PTR RETURNING RC
               IF RC NOT = 0
               THEN
                   MOVE RC     TO RETURN-CODE
                   GOBACK
               END-IF
               OPEN OUTPUT TEST-FILE
               PERFORM
               10 TIMES
                   ADD 1 TO REC-NUM
                   WRITE TEST-REC FROM OUTPUT-REC
               END-PERFORM
               CLOSE TEST-FILE
           END-PERFORM.

           MOVE 0           TO RETURN-CODE.

           GOBACK.




Thanks,

Sandeep R Prajapati

Technology Analyst @ Infosys.

Comments

Post a Comment

Popular posts from this blog

Sort JCL in Descending Order and Format the output

Image
JCL sort is IBM utility used for sorting input data source such as PS, VSAM or SMS files. In this example I will demonstrate on How to Sort the Sequential Data set in Descending order and in the last, format the record in such a way that we will only get the selected column values in the output file JCL: This JCL executes SORT program in 2 steps Step01 - sorts the input file in Descending Order Step02 - copy the input file in output while in specified Format only. //* THIS JCL SORTS THE OUTPUT FILE IN DESCENDING ORDER       //* AND FORMATS THE OUTFILE                                  //STEP01   EXEC PGM=SORT                                     //SYSOUT   DD SYSOUT=*                                       //SORTIN   DD DSN=G101105.CLAIM.EXTRACT1,DISP=SHR            //SORTOUT  DD DSN=G101105.CLAIM.SORTED,                      //         DISP=(NEW,CATLG),UNIT=SYSDA,                      //         SPACE=(CYL,(100,100),RLSE),                       //         DCB=(LRECL=135,RECFM=FB,BLKSIZE=
Read more

Fixing DB2 data for A Given table using Batch Program.

Image
Hi Mainframe, Batch programming is a very powerful process which helps process Millions of record from a input data source. An Input data source can be a VSAM dataset, SMS files or Database Such as DB2 or IMS.  In these Blog we will be studying the Batch Application to update DB2 database which is our source of data having bad column value in it.  Many a times while working on Application Development or Enhancement, there is an unwanted Initialize or Move Statement in the Application program which cause the Database to be update with wrong values. And it becomes important to Fix this. As the Above Database has impacted 1000's & 10,000's of record values it becomes impossible to update each record with correct field without a Batch module. To facilitate the Batch update, we have been provided with many a techniques to collectively select and update a output desired records. One of those techniques which is widely and commonly used by Application developer is the use of CURSO
Read more