Example of Use

The following is an example of code issuing the IATXJDS macro to create a JDS for a job.

    *----------------------------------------------------------------*
    *         CREATE A JOB DATA SET CONTROL BLOCK FOR THE JOB        *
    *----------------------------------------------------------------*
              IATXJDS TYPE=CREATE,       BUILD A NEW JDS             *
                    FDB=USERJDS,                                     *
                    TATPTR=JCTTATFD,                                 *
                    CKPT=NO
    *----------------------------------------------------------------*
    *         BUILD THE FIRST ENTRY IN THE JDS                       *
    *----------------------------------------------------------------*
                                 .
                                 .
                                 .
    *----------------------------------------------------------------*
    *         CHECKPOINT THE JDS ON SPOOL                            *
    *----------------------------------------------------------------*
              IATXJDS FDB=USERJDS,       WRITE THE NEW               *
                    TATPTR=JCTTATFD,        JDS TO SPOOL             *
                    TYPE=WRITE
    *
              MVC     JCTJDSFD,USERJDS   SET UP THE JDS ANCHOR