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

There are Comments. Add yours.

 
TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
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
Sort by: OldestNewest

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to: