Serving Spooled Files to the Web

Now that you have set up your repetitive entries, you can put them into a database and append your spooled file to that database. The result will be a database that contains standard HTML entries and the entries from your spooled file. When you've done this, you'll almost be ready to move the file to the document library system.

Take a look at the CL in Figure 1 (the CL presents a prompt screen, whose DDS is in Figure 2, with a sample in Figure 3).

/*********************************************************************/
/*********************************************************************/
/* */
/* PROGRAM ID - SPOOLTOHTM */
/* AUTHOR - Christopher J. Devous */
/* MODIFIED - 3/13/00 */
/* */
/*********************************************************************/
 PGM 
 
 DCLF FILE(MYLIB/SPLTOHTMPM) 
 VAR(&XTITLE) VALUE('')
 CHGVAR VAR(&PGMSGQ) VALUE('SPLTOHTM') 
 
 CHKOBJ OBJ(QTEMP/SPLFDB) OBJTYPE(*FILE) 
 MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(NODEL)) 
 DLTF FILE(QTEMP/SPLFDB) 
NODEL: 
 CRTPF FILE(QTEMP/SPLFDB) SRCFILE(MYLIB/QDDSSRC) +
 OPTION(*NOSRC *NOLIST) LVLCHK(*NO) 
 CPYF FROMFILE(MYLIB/STDHTM) + 
 TOFILE(QTEMP/SPLFDB) MBROPT(*ADD) + 
 FMTOPT(*NOCHK) 
 
RDSPLY: SNDF RCDFMT(MSGCTL) 
 SNDRCVF RCDFMT(SPLTOHTMPM) 
 RMVMSG PGMQ(*SAME) CLEAR(*ALL) 
 
 IF COND(&IN03 *EQ '1') THEN(DO) 
 GOTO CMDLBL(DONE) 
 ENDDO 
 
 IF COND(&FLDNAM *EQ ' ') THEN(DO) 
 RMVMSG CLEAR(*NEW) 
 SNDPGMMSG MSG('Folder name is blank') TOPGMQ(*SAME) 
 GOTO CMDLBL(RDSPLY) 
 ENDDO 
 
 IF COND(&TITLE *EQ ' ') THEN(DO) 
 RMVMSG CLEAR(*NEW) 
 SNDPGMMSG MSG('Title is blank') TOPGMQ(*SAME) 
 GOTO CMDLBL(RDSPLY) 
 ENDDO 
 
 IF COND(&DOCNAM *EQ ' ') THEN(DO) 
 RMVMSG CLEAR(*NEW) 
 SNDPGMMSG MSG('Document name is blank') TOPGMQ(*SAME)
 GOTO CMDLBL(RDSPLY) 
 ENDDO 
 
 IF COND(&SPLFILE *EQ ' ') THEN(DO) 
 RMVMSG CLEAR(*NEW) 
 SNDPGMMSG MSG('Spooled file name is blank') TOPGMQ(*SAME)
 GOTO CMDLBL(RDSPLY) 
 ENDDO 
 
 OVRDBF FILE(SPLFDB) FRCRATIO(1) 
 
 CHGVAR VAR(&XTITLE) VALUE('') 
 
 CALL PGM(MYLIB/HADTITLE) PARM(&XTITLE) 
 
 CPYSPLF FILE(&SPLFILE) TOFILE(QTEMP/SPLFDB) + 
 MBROPT(*ADD) 
 
 CHGVAR     VAR(&TITLE) VALUE('' 
 CALL PGM(MYLIB/HADTITLE) PARM(&TITLE) 
 
 DLTOVR FILE(*ALL) 
 
 CPYTOPCD FROMFILE(QTEMP/SPLFDB) TOFLR(&FLDNAM) +
 TODOC(&DOCNAM) REPLACE(*YES) 

 DLTF FILE(QTEMP/SPLFDB) 
 
DONE: 
 RETURN 
 
 ENDPGM 

Figure 1: This CL program forms the cornerstone of your building block.

A*****************************************************************
A* 
A* FILE ID - SPLTOHTMPM 
A* FILE NAME - Prompt Screen for Spooled Files to HTML conversion
A* 
A*****************************************************************
A DSPSIZ(24 80 *DS3) 
A PRINT 
A R SPLTOHTMPM 
A CF03(03 'EXIT') 
A BLINK 
A OVERLAY 
A PUTOVR 
A 1 73DATE 
A EDTCDE(Y) 
A 2 2SYSNAME 
A 2 73TIME 
A 23 5'Enter=Accept F3=Exit' 
A DSPATR(HI) 
A COLOR(BLU) 
A 1 2'SPLToHTM' 
A 1 23'Copy Spooled Files to Document Lib-
A rary' 
A 9 18'Spooled File. . . . ' 
A SPLFILE 10A B 9 40 
A 11 17'Document Name. . . .' 
A DOCNAM 12A B 11 40 
A 15 7'Title:' 
A TITLE 50A B 15 16CHECK(LC) 
A 13 17'Folder Name. . . . .' 
A FLDNAM 10A B 13 40 
A* 
A R MSGRCD TEXT('MSG SFL RECORD') 
A SFL SFLMSGRCD(24) 
A MSGKEY SFLMSGKEY 
A PGMSGQ SFLPGMQ 
A* 
A R MSGCTL TEXT('MSG SFL CONTROL') 
A OVERLAY SFLCTL(MSGRCD) SFLSIZ(10)
A SFLPAG(1) SFLDSPCTL SFLDSP SFLINZ

Figure 2: This DDS gives a prompt screen asking the user for the values you need.

Figure 3: This prompt screen appears as your user sees it.

After first checking to be sure the database file isn't already there, create a new database file called SPLFDB in QTEMP by issuing the command CRTPF FILE(QTEMP/SPLFDB) SRCFILE(MYLIB/QDDSSRC) OPTION(*NOSRC *NOLIST) LVLCHK(*NO). (Figure 4 shows the DDS for SPLFDB).

A*****************************************************************
A* 
A* FILE ID - SPLFDB 
A* FILE NAME - Container for Spooled File Records 
A* 
A* 
A*****************************************************************
A R SPREC 
A SPFLD 136A TEXT('Spool Records')

Figure 4: This shows the SPLFDB DDS source.

This command creates the physical file you'll use as a container for the records from which you want to create a Web page. Note that the command prevents a source listing and specifies no level checking. Now that you've got your file, you'll copy in the standard HTML lines that you put in the STDHTM file. The CL program issues the following command:

CPYF FROMFILE(MYLIB/STDHTM) TOFILE(QTEMP/SPLFDB) MBROPT(*ADD) FMTOPT(*NOCHK) 

This will copy your standard HTML lines into your SPLFDB file in QTEMP.Next, a prompt screen (see Figure 2 for DDS and Figure 3 for screen shot) asks for the spooled file name (&SPLFILE), the name of the document you wish to create (&DOCNAM), the folder in which you want the document to land (&FLDNAM), and a title for the document (&TITLE). These are all stored in variables within the CL program.

After doing some error checking to make sure you have all your values, add HTML