/*----------------------------------------------------------------*/ /* CL Program CVTSPLWEBC : COMMAND CVTSPLWEB PROCESSING PGM */ /* COPYRIGHT (c) 1998 Vengoal Chang */ /* ALL RIGHTS RESERVED. */ /*----------------------------------------------------------------*/ /* -----------------------------------------------*/ /* COPY SPOOLF FILES TO WEB PAGES */ /* -----------------------------------------------*/ /* 0. CRTLIB WEBSAMP */ /* CRTSRCPF FILE(WEBSAMP/HTMLDOC) + */ /* RCDLEN(240) + */ /* IGCDATA(*YES) */ /* */ /* 1. Create a text member name "HTMTAG" */ /* to handle HTML Tag in WEBSAMP/HTMLDOC */ /* using strpdm add source member */ /* */ /* first record : */ /* second record : 
                       */
         /*    third  record :
*/ /* fourth record : */ /* */ /* 2. ADDLIBLE WEBSAMP */ /* */ /* 3. RUN THE COMMAND */ CVTSPLF: PGM PARM(&SPLNM &TOFIL &JOB &SPLNB &TOMBR &MBROP) /* DECLARE INPUT PARAMETERS */ DCL VAR(&SPLNM) TYPE(*CHAR) LEN(10) DCL VAR(&TOFIL) TYPE(*CHAR) LEN(20) /* FILE,LIB */ DCL VAR(&JOB) TYPE(*CHAR) LEN(26) /* JOB,USER,JOB_NO */ DCL VAR(&SPLNB) TYPE(*CHAR) LEN(5) DCL VAR(&TOMBR) TYPE(*CHAR) LEN(10) DCL VAR(&MBROP) TYPE(*CHAR) LEN(8) DCL VAR(&FILE) TYPE(*CHAR) LEN(10) DCL VAR(&LIB) TYPE(*CHAR) LEN(10) DCL VAR(&JOBNM) TYPE(*CHAR) LEN(10) DCL VAR(&JOBUS) TYPE(*CHAR) LEN(10) DCL VAR(&JOBNB) TYPE(*CHAR) LEN(6) /* Message handling variables */ DCL VAR(&MSGID) TYPE(*CHAR) LEN(7) DCL VAR(&MSGF) TYPE(*CHAR) LEN(10) DCL VAR(&MSGFLIB) TYPE(*CHAR) LEN(10) DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(256) MONMSG MSGID(CPF0000 MCH0000) EXEC(GOTO CMDLBL(ERROR)) CHGVAR VAR(&FILE) VALUE(%SST(&TOFIL 1 10)) CHGVAR VAR(&LIB) VALUE(%SST(&TOFIL 11 10)) CHGVAR VAR(&JOBNM) VALUE(%SST(&JOB 1 10)) CHGVAR VAR(&JOBUS) VALUE(%SST(&JOB 11 10)) CHGVAR VAR(&JOBNB) VALUE(%SST(&JOB 21 6)) IF (%SST(&JOB 1 1) = '*') DO RTVJOBA JOB(&JOBNM) USER(&JOBUS) NBR(&JOBNB) ENDDO /* CREATE THE TEMP FILE TO RECEIVE THE OUTPUT */ DLTF FILE(QTEMP/HTMTMP) MONMSG MSGID(CPF2105) CRTPF FILE(QTEMP/HTMTMP) RCDLEN(220) IGCDTA(*YES) /* Insert the HTML header tags */ /* The tag is in the first record of the HTMTAG file*/ CPYF FROMFILE(HTMLDOC) TOFILE(QTEMP/HTMTMP) + FROMMBR(HTMTAG) MBROPT(*REPLACE) + FROMRCD(1) TORCD(2) FMTOPT(*CVTSRC) /* Copy the spool file (*add) */ CPYSPLF FILE(&SPLNM) TOFILE(QTEMP/HTMTMP) + JOB(&JOBNB/&JOBUS/&JOBNM) SPLNBR(&SPLNB) + MBROPT(*ADD) /* Append the HTML footer tags */ CPYF FROMFILE(HTMLDOC) TOFILE(QTEMP/HTMTMP) + FROMMBR(HTMTAG) MBROPT(*ADD) FROMRCD(3) + TORCD(4) FMTOPT(*CVTSRC) /* COPY Web Page data to Text file member */ CPYF FROMFILE(QTEMP/HTMTMP) TOFILE(&LIB/&FILE) + TOMBR(&TOMBR) MBROPT(&MBROP) FMTOPT(*CVTSRC) CHGPFM FILE(&LIB/&FILE) MBR(&TOMBR) SRCTYPE(HTML) GOTO CMDLBL(OK) error: RCVMSG MSGTYPE(*LAST) MSGDTA(&MSGDTA) MSGID(&MSGID) + MSGF(&MSGF) SNDMSGFLIB(&MSGFLIB) MONMSG MSGID(CPF0000) /* In case */ SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) + MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE) MONMSG MSGID(CPF0000) /* In case */ OK: SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Spooled + file' *BCAT &SPLNM *BCAT 'converted to ' + *CAT &LIB *TCAT '/' *CAT &FILE *BCAT + 'HTML member' *BCAT &TOMBR) MSGTYPE(*COMP) ENDPGM