How to copy all the members to a PDS or PDSE from Master file not expanding the includes?
search cancel

How to copy all the members to a PDS or PDSE from Master file not expanding the includes?

book

Article ID: 54738

calendar_today

Updated On:

Products

Librarian

Issue/Introduction

Need to copy all the members of a Librarian Master File to a PDS / PDSE and do not want the includes or copybooks to be expanded.

Every time a -INC is encountered it expands it. 

 

Environment

Release:   4.4
 

Resolution

The problem is that -OPT GPO does not support -NOINC to prevent the includes from being expanded.

Need to edit the -INC to something else like =INC and then perform the copy. Here is an example below:

 //LIBR     EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'                         
 //MASTER   DD DISP=SHR,DSN=your.master.file                       
 //OSJOB    DD DSN=&&OSJOB1,DISP=(,PASS),                             
 //            UNIT=SYSDA,                                            
 //            SPACE=(CYL,(5,2),RLSE),                                
 //            DCB=(LRECL=80,RECFM=FB,DSORG=PS,BLKSIZE=6080)          
 //SYSPRINT DD SYSOUT=*,DCB=RECFM=FBA                                 
 //SYSIN DD *                                                         
 -OPT GPO                                                             
 -SEL NAME=,EXEC(R),TEMP,COPYDDOFF,CCOPYOFF                           
 -EDIT /-INC/=INC/                                                    
 -END                                                                 
 //*                                                                  
 //*    THIS STEP UNLOADS ALL MEMBERS IN SYSIN FILE FROM LIBRARIAN TO 
 //*    A PDS (DDNAME=OSJOB)                                          
 //*                                                                  
 //UNLOAD   EXEC PGM=AFOLIBR,PARM='NRJS,NJTA',REGION=0M               
 //LIST     DD DUMMY                                                  
 //MASTER   DD DISP=SHR,DSN=your.master.file                       
 //OSJOB    DD DISP=SHR,DSN=your.pds.file                            
 //SYSPRINT DD SYSOUT=*,DCB=RECFM=FBA                                 
 //SYSIN    DD DSN=&&OSJOB1,DISP=(OLD,PASS)                           
 /*