Previous Topic

Next Topic

Book Contents

Book Index

Code sample of a audit decollation mission for storing the audit report

CATEGORY AUDIT_REPORTING        JOBNAME CTDPRINT  GENERIC N  MONITOR         

OWNER    ADMIN     TASKTYPE REP GROUP AUDIT                  JOBID        

DESC     DAILY AUDIT REPORTING                                            

DESC                                                                      

===========================================================================

DAYS    ALL                                                   DCAL        

                                                                   AND/OR 

WDAYS                                                         WCAL        

MONTHS  1- Y 2- Y 3- Y 4- Y 5- Y 6- Y 7- Y 8- Y 9- Y 10- Y 11- Y 12- Y    

DATES                                                                     

CONFCAL          SHIFT   RETRO N MAXWAIT 00                               

MINIMUM          PDS                                                      

===========================================================================

IN      AUDIT-PRINT          ODAT                                         

WHEN IN QUEUE   CLS   TIME FROM      UNTIL      INTERVAL      PRIORITY    

DSN                                                                       

===========================================================================

OUT     AUDIT-PRINT          ODAT -                                        SHOUT WHEN                                      TO                  URG   

 MSG                                                                      

===========================================================================

DEF COPIES    LVL    USER                      DEST          MAX COPIES   

===========================================================================

ON CLASS      = B         EXTWTR CONSOLID      DEST AUDIT    FORM AUDT    

PRT COPIES    LVL    USER                      DEST          MAX COPIES   

    PRINT/CDAM PARMS =                                                    

DO                                                                        

WHEN LINE       -       COL       -       PRINT   REF NXT   CT     AND/OR 

     STRING =                                                             

DO USER    = AUDITOR                   LVL    LINE        COL       -     

                        S N T B       SYNONYM =       CONCAT =            

DO NAME    = AUDIT CONSOLIDATED REPORT                                    

DO INDEX   = ENTITY               M   R   G   LINE +00000 COL 00034 - 00043

      MASK = :                    RC Y LINE 00001 - 00100 COL 00015 - 00015

      PRINT=                      TYPE                                    

02 SUBINDX = NAME                 M   LVL 02  LINE +00000 COL 00057 - 00076

      MASK = :                    RC Y LINE 00001 - 00100 COL 00015 - 00015

      PRINT=                      TYPE                                    

Parent Topic

Example 5 - Decollation mission for storing audit report