Examples for CTVUPINV

This sample job performs the following actions:

• Adds a new group subscription record to the Permanent User File.

  This record is used when printing the Control-V report named "GROUP REPORT NAME" by the ACCOUNT index with values from 0000001 to 0000050. The reports will be printed to STD2 destination with Index banners (by default).

• Adds a new individual subscription record to the Permanent User File.

  This record is used when printing by the two level Index path DOC_ID/NAME when DOC_ID is started from 900 and NAME is DOE JOHN. The reports are printed to CTD/DS destination DSR50 without Index banners and distributed to e-mail address: support@your_company.com

• Deletes from the Permanent User File all the subscription records containing job names starting with "JOB9".
• Changes the first address line in all the subscription records with the Index path DEPARTMENT/ACCOUNT, the DEPARTMENT value 001 and ACCOUNT value starting from 20. The new address will be: P.O.Box 100, 12345 Anywhere, Earth.
• Replicates all subscription records with the main Index name WAREHOUSE and recipient RECIP1 for the recipient RECIP2.

//CTVUPINV   EXEC CTVUPINV       

//SYSIN    DD *                             

   MODE=PROD                                

   PRINT=ALL                    

INSERT                                                       

   TYPE=G                             

   REPNAME='GROUP REPORT NAME'                               

   INDNAME1=ACCOUNT                          

   INDVAL1=*                     

   FROMINDVAL=0000001                           

   TOINDVAL=0000050                             

   DEST1=STD2                                  

INSERT                                      

   TYPE=I                                                 

   INDNAME1=DOC_ID                                

   INDVAL1=900*                               

   INDNAME2=NAME                         

   INDVAL2= ‘DOE JOHN’

   DEST1=CTDS  

   DEST2=DSR50

   CTDS-EMAIL=support@your_company.com 

   DEST1=STD 

DELETE            

   JOBNAME=JOB9*

SELECT            

   INDNAME1=DEPARTMENT        

   INDVAL1=001  

   INDNAME2=ACCOUNT        

   INDVAL2=20*       

CHANGE TO        

   ADDRESS1='P.O.Box 100, 12345 Anywhere, Earth'        

   SUBSCRIBE=N           

SELECT       

   INDNAME1=WAREHOUSE           

   RECIPIENT=RECIP1       

REPLICATE       

   RECIPIENT=RECIP2       

//                                              

The following sample job defines passwords to prevent unauthorized access to PDF reports from two jobs. For JOB1234, a password will be required to access a specific index in the report. For JOB2345, a password will be required to access the whole report.

//CTVUPINV EXEC CTVUPINV

//SYSIN DD *

      MODE=PROD

      PRINT=ALL

INSERT                                

   TYPE=S                             

   REPNAME='CLASSIFIED REPORT'         

   RECIPIENT=JOHNDOE                 

   JOBNAME=JOB1234                  

   CATEGORY=FINANCIAL      

   [email protected]

   PDF-USER-PASS=PASSWORD1    

   INDNAME1=SECTION1                  

   INDVAL1=A123                 

   INDNAME2=SECTION2                       

   INDVAL2=B123                  

INSERT                                 

   TYPE=R                              

   REPNAME='SECRET REPORT'

   RECIPIENT=JOHNDOE                  

   JOBNAME=JOB2345                    

   CATEGORY=HUMAN_RESOURCES                      

   [email protected]

   PDF-USER-PASS=PASSWORD2        

//