| 
/* Ajout des boucles en RPG */
PGM PARM(&MBR &FULLFILE &TFIL &TDIR &TFON &TTOP &TBOT &AF4)
DCL &MBR TYPE(*CHAR) LEN(10)
DCL &FULLFILE TYPE(*CHAR) LEN(20)
DCL &TFIL TYPE(*CHAR) LEN(32)
DCL &TFILH TYPE(*CHAR) LEN(36)
DCL &TDIR TYPE(*CHAR) LEN(40)
DCL &TFON TYPE(*CHAR) LEN(08)
DCL &TTOP TYPE(*CHAR) LEN(08)
DCL &TBOT TYPE(*CHAR) LEN(08)
DCL &AF4 TYPE(*CHAR) LEN(80)
DCL &FILE TYPE(*CHAR) LEN(10)
DCL &LIB TYPE(*CHAR) LEN(10)
DCL &SYSNAM *CHAR LEN(8)
DCL &TEXTE TYPE(*CHAR) LEN(50)
DCL &STMF TYPE(*CHAR) LEN(128)
DCL &ERRORSW *LGL /* Std err */
DCL &MSGID *CHAR LEN(7) /* Std err */
DCL &MSGDTA *CHAR LEN(100) /* Std err */
DCL &MSGF *CHAR LEN(10) /* Std err */
DCL &MSGFLIB *CHAR LEN(10) /* Std err */
MONMSG MSGID(CPF0000) EXEC(GOTO STDERR1) /* Std err */
RTVNETA SYSNAME(&SYSNAM)
IF COND(&TFIL *EQ '*MBR') THEN(DO)
CHGVAR &TFIL &MBR
ENDDO
CHGVAR &TFILH (&TFIL *TCAT '.HTM')
CHGVAR &FILE %SUBSTRING(&FULLFILE 1 10)
CHGVAR &LIB %SUBSTRING(&FULLFILE 11 10)
CHKOBJ OBJ(&LIB/&FILE) OBJTYPE(*FILE) MBR(&MBR)
RTVMBRD FILE(&LIB/&FILE) MBR(&MBR) TEXT(&TEXTE)
DLTF QTEMP/SORTIE
MONMSG CPF0000
CRTSRCPF FILE(QTEMP/SORTIE) RCDLEN(1024) MBR(HTML) +
TEXT('SORTIE POUR HTML')
OVRDBF FILE(SORTIE ) TOFILE(QTEMP/SORTIE) MBR(HTML)
OVRDBF FILE(QTXTSRC) TOFILE(&LIB/&FILE) MBR(&MBR)
CALL PGM(CVTMBRHTMR) PARM(&TFON &TTOP &TBOT +
&TEXTE &AF4)
CHGVAR VAR(&STMF) VALUE(&TDIR *TCAT '/' *CAT &TFILH)
CPYTOSTMF +
FROMMBR('/qsys.lib/qtemp.lib/sortie.file/ht+
|
|
ml.mbr') TOSTMF(&STMF) STMFOPT(*REPLACE) +
STMFCODPAG(1252) ENDLINFMT(*LF)
CHGAUT OBJ(&STMF) USER(*PUBLIC) DTAAUT(*RX)
SNDPGMMSG MSG('Membre' *BCAT &MBR *BCAT 'transformé en +
HTML')
RETURN: RETURN /* Normal end of program */
STDERR1: /* Standard error handling routine */
IF &ERRORSW SNDPGMMSG MSGID(CPF9999) +
MSGF(QCPFMSG) MSGTYPE(*ESCAPE) /* Func chk */
CHGVAR &ERRORSW '1' /* Set to fail ir error occurs */
STDERR2: RCVMSG MSGTYPE(*DIAG) MSGDTA(&MSGDTA) MSGID(&MSGID) +
MSGF(&MSGF) MSGFLIB(&MSGFLIB)
IF (&MSGID *EQ ' ') GOTO STDERR3
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
MSGDTA(&MSGDTA) MSGTYPE(*DIAG)
GOTO STDERR2 /* Loop back for addl diagnostics */
STDERR3: RCVMSG MSGTYPE(*EXCP) MSGDTA(&MSGDTA) MSGID(&MSGID) +
MSGF(&MSGF) MSGFLIB(&MSGFLIB)
SNDPGMMSG MSGID(&MSGID) MSGF(&MSGFLIB/&MSGF) +
MSGDTA(&MSGDTA) MSGTYPE(*ESCAPE)
ENDPGM
|
