Command Source Code

===================
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') 

Start the conversation

Send me notifications when other members comment.

By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Please create a username to comment.

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close