Article

Command Source Code

Eric Nepsund

===================
Command Source Code
===================

/******************************************************************************/ 
/* OBJECT NAME....: CVTSPLHTM                                                 */ 
/* DESCRIPTION....: Convert spooled file to HTML.                             */ 
/* RELEASE........: V4R2                                                      */ 
/* COMPILE NOTES..: 1) Command processing Program is "CVTSPLHTMC".            */ 
/*                                                                            */ 
/* DATE WRITTEN...: 02/08/2001                                                */ 
/* AUTHOR.........: Eric Nepsund                                              */ 
/******************************************************************************/ 

             CMD        PROMPT('Convert spooled file to HTML') 

             PARM       KWD(FILE) TYPE(*NAME) LEN(10) MIN(1) + 
                          PROMPT('Spooled file') 

             PARM       KWD(DESTFIL) TYPE(*CHAR) LEN(8) + 
                          MIN(1) ALWUNPRT(*NO) + 
                          EXPR(*YES) PROMPT('Destination file') 

             PARM       KWD(DESTFLR) TYPE(*CHAR) LEN(80) + 
                          DFT('HTML/REPORTS') EXPR(*YES) + 
                          PROMPT('Destination folder') 

             PARM       KWD(JOB) TYPE(QJOB) DFT(*) SNGVAL((*)) + 
                          PROMPT('Job name') 

             PARM       KWD(SPLNBR) TYPE(*DEC) LEN(4) DFT(*LAST) + 
                          RANGE(-1 9999) SPCVAL((*ONLY 0) (*LAST + 
                          -1)) PROMPT('Spooled file number') 

 PDESTFLR:   PMTCTL     CTL(DESTFLR) COND((*EQ *RETRIEVE)) 

 QJOB:       QUAL       TYPE(*NAME) LEN(10) 
             QUAL       TYPE(*NAME) LEN(10) PROMPT('User') 
             QUAL       TYPE(*CHAR) LEN(6) RANGE('000000' '999999') + 
                          PROMPT('Number')

Back to top