WRKACTJOBS - Output Work Active Jobs to file.

/*********************************************************************/   
/* Program:   WRKACTJOBS                                             */   
/*                                                                   */   
/* Author:    Poul Aschenbrenner, COOP Data                          */   
/*                                                                   */   
/* Function:  Output Work Active Jobs to file.                       */   
/*                                                                   */   
/* Parm:      1. Subsystem                                           */   
/*            2. Job Name                                            */   
/*********************************************************************/   
             PGM        PARM(&SBS &JOB)                                   
             DCL        VAR(&SBS) TYPE(*CHAR) LEN(10)                     
             DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)                     
             DCL        VAR(&CMD) TYPE(*CHAR) LEN(80)                     
             CRTPF      FILE(QTEMP/WRKACTJOBS) RCDLEN(266)                
             MONMSG     MSGID(CPF0000)                                    
             CHGVAR     VAR(&CMD) VALUE('system "wrkactjob sbs(' *TCAT +  
                          &SBS *TCAT ') JOB(' *TCAT &JOB *TCAT ')"')      
             SNDPGMMSG  MSG('Output for WRKACTJOB send to +               
                          QTEMP/WRKACTJOBS...')                          
             OVRDBF     FILE(STDOUT) TOFILE(QTEMP/WRKACTJOBS)            
             STRQSH     CMD(&CMD)                                        
             ENDPGM                                        
 
 
 
/*********************************************************************/   
/* Command:   WRKACTJOBS                                             */   
/*                                                                   */   
/* Author:    Poul Aschenbrenner, COOP Data                          */   
/*                                                                   */   
/* Function:  Output Work Active Jobs to file.                       */   
/*                                                                   */   
/* Parm:      1. Subsystem                                           */   
/*            2. Job Name                                            */   
/*********************************************************************/   
             CMD        PROMPT('Output Work Active Jobs')                 
             PARM       KWD(SBS) TYPE(*CHAR) LEN(10) DFT(*ALL) +          
                          MIN(0) CHOICE('Name, *ALL') +                   
                          PROMPT('Subsystem')                             
             PARM       KWD(JOB) TYPE(*CHAR) LEN(10) DFT(*ALL) +          
                          MIN(0) CHOICE('Name, generic*, *ALL') +         
                          PROMPT('Job name')                               

[report a broken link by clicking here]