------------
HTML (CMD)
------------
CMD ('HTML CVTER')
PARM KWD(FROMFILE) TYPE(QUAL1) MIN(1) +
PROMPT('FROM SRC')
PARM KWD(FROMMBR) TYPE(*NAME) LEN(10) MIN(1) +
PROMPT('FROM MBR') PARM KWD(TOFILE) TYPE(QUAL2) MIN(1) +
PROMPT('TO SRC')
PARM KWD(TOMBR) TYPE(*NAME) LEN(10) DFT(*FROMMBR) +
SPCVAL((*FROMMBR)) PROMPT('FROM MBR') QUAL1: QUAL TYPE(*NAME) LEN(10)
QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) +
SPCVAL((*LIBL)) PROMPT('LIBRARY')
QUAL2: QUAL TYPE(*NAME) LEN(10)
QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) +
SPCVAL((*LIBL)) PROMPT('LIBRARY')
------------
HTML01 (RPG)
------------
H 1 Y/ 1
F******************************************************
F* D E F I N E F I L E S *
F******************************************************
FINPUT IF F 112 DISK
F KINFDS INFDS
FOUTPUT O F 150 DISK A
E****************************************************
E* A R R A Y T A B L E *
E****************************************************
E CK1 100 1 :
E CK2 150 1 :
I******************************************************
I* D E F I N E I N P U T F I E L D *
I******************************************************
IINPUT AA 01
I 13 112 CK1
I******************************************************
I* D E F I N E D A T A - S T R U C T U R E *
I******************************************************
IDSCK2 DS
I 1 150 CK2
IINFDS DS
I 83 92 SRC
I 93 102 LIB
I 129 138 MBR
I******************************************************
I* D E F I N E C O N S T A N T *
I******************************************************
I '<TR><TD><PRE>' C TAG1
I '</PRE></TD></TR>' C TAG2
I '<P><A NAME="' C TAG3
I '</A></P>' C TAG4
I '<TABLE BORDER="1">' C TAG5
I '</TABLE>' C TAG6
I '<' C LT
I '>' C GT
I '&' C AND
I '"' C DBLQ
C******************************************************
C* M A I N - R O U T I N E
C******************************************************
C MOVELTAG3 OUTNAM150 P :
C CAT MBR:0 OUTNAM :
C CAT '">':0 OUTNAM :
C CAT MBR:0 OUTNAM :
C CAT TAG4:0 OUTNAM :
C EXCPT#NAME :
C MOVELTAG1 OUTDTA150 P :
C* :
B001 C *IN90 DOUEQ*ON :
001 C READ INPUT 90:
B002 C *IN90 IFEQ *OFF :
002 C* :
002 C EXSR @CK1 :
002 C* :
002 C ADD 1 W1LIN 30 :
002 C CAT DSCK2:0 OUTDTA :
002 C* :
002 C READ INPUT 90:
002 C READPINPUT 92:
B003 C W1LIN IFEQ 15 :
*003 C *IN90 OREQ *ON :
003 C CAT TAG2:0 OUTDTA :
E003 C ENDIF :
002 C* :
002 C EXCPT#ADD :
002 C* :
B003 C W1LIN IFEQ 15 :
*003 C *IN90 ANDEQ*OFF :
003 C MOVELTAG1 OUTDTA P :
003 C Z-ADD0 W1LIN :
E003 C ENDIF :
002 C* :
E002 C ENDIF :
E001 C ENDDO :
C* :
C EXCPT#TBL2 :
C MOVE *ON *INLR :
C RETRN :
C******************************************************
C* S U B - R O U T I N E
C******************************************************
C*----------------------------------------------------*
C @CK1 BEGSR :
C*----------------------------------------------------*
C Z-ADD0 KK 30 :
B001 C 1 DO 100 JJ 30 :
001 C ADD 1 KK :
B002 C SELEC :
002 C CK1,JJ WHLT *BLANK :
*002 C CK1,JJ ANDNEX'0E' :
*002 C CK1,JJ ANDNEX'0F' :
002 C MOVE *BLANK CK2,KK :
002 C CK1,JJ WHEQ '<' :
002 C MOVEALT CK2,KK :
002 C ADD 3 KK :
002 C CK1,JJ WHEQ '>' :
002 C MOVEAGT CK2,KK :
002 C ADD 3 KK :
002 C CK1,JJ WHEQ '&' :
002 C MOVEAAND CK2,KK :
002 C ADD 4 KK :
002 C CK1,JJ WHEQ '"' :
002 C MOVEADBLQ CK2,KK :
002 C ADD 5 KK :
+002 C OTHER :
002 C MOVE CK1,JJ CK2,KK :
E002 C ENDSL :
E001 C ENDDO :
C* :
C ENDSR :
O******************************************************
O* O U T P U T M O D U L E *
O******************************************************
OOUTPUT EADD #NAME
O OUTNAM
O EADD #NAME
O TAG5 18
O EADD #ADD
O OUTDTA B
O EADD #TBL2
O TAG6 8
------------
HTML01C (CLP)
------------
PGM (&FROM &FROMMBR &TO &TOMBR) DCL &FROM *CHAR 20
DCL &TO *CHAR 20
DCL &FROMMBR *CHAR 10
DCL &TOMBR *CHAR 10
DCL &FROMF *CHAR 10
DCL &FROML *CHAR 10
DCL &TOF *CHAR 10
DCL &TOL *CHAR 10 MONMSG CPF0000 *N GOTO END CHGVAR &FROMF %SST(&FROM 1 10)
CHGVAR &FROML %SST(&FROM 11 10)
CHGVAR &TOF %SST(&TO 1 10)
CHGVAR &TOL %SST(&TO 11 10) CHKOBJ &FROML/&FROMF *FILE MBR(&FROMMBR) IF (&TOMBR='*FROMMBR') CHGVAR &TOMBR &FROMMBR ADDPFM &TOL/&TOF MBR(&TOMBR)
MONMSG CPF0000 OVRDBF INPUT &FROML/&FROMF &FROMMBR
OVRDBF OUTPUT &TOL/&TOF &TOMBR
CALL HTML01
DLTOVR *ALL
END:
RETURN
ENDPGM |