Load - View JCL


The  ISPF/PDF VIEW - File-AID/RDX Generated JCL  screen shown in the following figure is displayed when you select Option 7, from the Load Menu.

ISPF/PDF VIEW - File-AID/RDX Generated JCL

  VIEW - File-AID/RDX Generated JCL --------------------------- COLUMNS 001 072   
  COMMAND ===>                                                  SCROLL ===> CSR   
      You are now editing the JCL that File-AID/RDX has generated to perform      
      the required function. Change this JCL as desired before submitting.        
                                                                                 
      SYSIN data is contained in: TSOID01.RDX.FBCNTL.D060202.T115332
                                  TSOID01.RDX.VBCNTL.D060202.T115332
  000004 //*                                                             XFRJLOAD
  000005 //*SQLID TSOID01 IS AUTHORIZED FOR ALL LOAD STEPS               
  000006 //*                                                             XFRJSTRT
  000007 //*-------------------------------------------------------------------   
  000008 //* CLEAN1ST: - THIS STEP WILL ENSURE THAT ALL TEMPORARY FILES        
  000009 //*             USED IN THIS JOB ARE DELETED.                            
  000010 //*           - THIS ALLOWS FOR KEEPING AND RERUNNING THE JOB EVEN IF   
  000011 //*             SUBSEQUENT STEPS FAIL.                                   
  000012 //*           - THIS JCL IS ALSO RESTARTABLE AT ANY STEP BY CODING       
  000013 //*             RESTART=XXXXXXXX ON THE JOBCARD. (XXXXXXXX = STEPNAME)   
  000014 //*-------------------------------------------------------------------   
  000015 //CLEAN1ST EXEC PGM=IDCAMS,COND=(4,LT),DYNAMNBR=2048
  000016 //SYSPRINT  DD  SYSOUT=*
  000017 //SYSIN     DD  *        IDCAMS DELETE STATEMENTS FOLLOW
  000018  DELETE TSOID01.RDX.SPLIT002.D130424.T105223
  000019   DELETE TSOID01.RDX.SORT003.D130424.T105223
  000020  DELETE TSOID01.RDX.SPLIT003.D130424.T105223 

Use this screen to view and edit the load JCL generated by File-AID/RDX. Submit this JCL with the SUBMIT command or select Option 8, Submit JCL, from the Load Menu to perform the load.

If you want to save this JCL, use the ISPF/PDF CREATE or REPLACE command before you exit this screen. Otherwise, File-AID/RDX deletes this file and other temporary files, including the control card PDSEs (prefix.FBCNTL.Dnnnnnn.Tnnnnnn.suffix and prefix.VBCNTL.Dnnnnnn.Tnnnnnn.suffix) (see also Control Card Cleanup and CLEANCTL—File Cleanup (IEFBR14) - Optional , here, and here).

Control Card Cleanup

The last 2 steps, CLEANCTL and CLEANEXT, in the load and delete jobs delete the File-AID/RDX control card PDSEs and EXTPARMS parameter files. Whether steps CLEANCTL and CLEANEXT are commented out or executed is determined by the global job option Delete in-stream data data sets at EOJ in section Option-G-global-user-defaults. If the job option is set to NO, File-AID/RDX control card PDSEs and EXTPARMS parameter files created in the load and delete jobs will NOT be deleted. Keeping the data sets until all steps run successfully allows for the restarting of the JCL at any step.

Periodically, you may want to manually delete the control card PDSEs and EXTPARMS parameter files that are no longer needed for saved jobs to be resubmitted.

View REXX

The ISPF/PDF Edit screen shown in the following figure is displayed when you select Option 7, from the Load Menu and the Execute Load interactively (online) status has been set to ON with the MODE primary command.

ISPF/PDF EDIT Screen—File-AID/RDX Generated REXX

 VIEW - File-AID/RDX Generated REXX                            COLUMNS 001 072
 Command ===>                                                  SCROLL ===> CSR
     You are now viewiing the REXX that File-AID/RDX has generated to perform
     the required function.  

     SYSIN data is contained in: TSOID01.RDX.FBCNTL.D060202.T115332
                                 TSOID01.RDX.VBCNTL.D060202.T115332
 ****** ***************************** Top of Data ******************************
 000001 /* REXX  */                                                                
 000002 /* TRACE R */                                                             
 000003   MSG_STAT = MSG("OFF")                                                   
 000004 ADDRESS ISPEXEC                                                            
 000005 'LIBDEF ISPLLIB DATASET ID( ',                                             
 000006    '    ''CPWR.MXVJ170.CXVJLOAD'', ',                                
 000007    '    ''DSNB10.DB01.SDSNEXIT'', ',                                       
 000008    '    ''DSNB10.SDSNLOAD'', ',                                            
 000009 '                            ) UNCOND '                                    
 000010 ADDRESS TSO 'ALLOC FI(RDXMLIB) DA(''CPWR.MXVJ170.CXVJMENU'') SHR '   
 000011 ADDRESS TSO                                                                
 000012 'FREE FI(SYSOUT)'                                                         
 000013 'FREE FI(SYSPRINT)'                                                        
 000014 'FREE FI(SYSTERM)'                                                        
 000015 'FREE FI(RDXSQLCD)'                                                        
 000016 'FREE FI(UTPRINT)' 

Use this screen to view or edit the extract REXX statements generated by File-AID/RDX.

 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*