Utilities › RMOPSF - Form and Page Definition Modification › SELECT Control Statement › Example

Example

The data set TEST.FDEFLIB.OLD contains a model form definition F1H10110 that is converted to a new name F1H10111 in TEST.FDEFLIB.NEW data set. The resulting FORMDEF resource needs to be copied to a library allocated to the AFP PSF.

//EXAMPLE  JOB ACCOUNT,PROGRAMMER
//RMOPSF    EXEC PGM=RMOPSF                            
//STEPLIB   DD DISP=SHR,DSN=CAI.CVDELOAD            
//SYSPRINT  DD SYSOUT=A                                
//SYSUT1    DD DSN=&&WRK1,UNIT=SYSDA,SPACE=(TRK,(15,1))
//SYSUT2    DD DSN=&&WRK2,UNIT=SYSDA,SPACE=(TRK,(15,1))
//*PDEFOLD  DD DSN=TEST.PDEFLIB.OLD,DISP=SHR           
//*PDEFNEW  DD DSN=TEST.PDEFLIB.NEW,DISP=SHR           
//FDEFOLD   DD DSN=TEST.FDEFLIB.OLD,DISP=SHR           
//FDEFNEW   DD DSN=TEST.FDEFLIB.NEW,DISP=SHR           
//SYSIN     DD *                                       
MDLPDEF F1H10110                                       
SELECT F1H10111                                        
REMOVE NO                                              
/*                                                     
//