PGM PARM(&SRTQ &LANG &CCS)
DCL &SRTQ *CHAR 20
DCL &LANG *CHAR 10
DCL &CCS *CHAR 4
DCL &RT *CHAR 319
DCL &LG *CHAR 4
DCLF DSPSRTSEQD
DCL &P *DEC (3 0)
/* VARIABLES UTILISEES PAR LA GESTION DE MESSGAES */
DCL &ERRORSW *LGL /* SWITCH */
DCL &MSGID *CHAR LEN(7) /* ID MSG */
DCL &MSGDTA *CHAR LEN(100) /* DATA */
DCL &MSGF *CHAR LEN(10) /* FICHIER */
DCL &MSGFLIB *CHAR LEN(10) /* BIBLI */
MONMSG MSGID(CPF0000) EXEC(GOTO ERREUR)
/* CORPS DU PROGRAMME */
CHGVAR %BIN(&LG) (319)
CALL QLGRTVSS PARM(&RT &LG &SRTQ &LANG &CCS 'RSST0100' +
X'00000000')
CHGVAR &CCSID %BIN(&RT 13 4)
CHGVAR &WEIGHT %SST(&RT 18 1)
CHGVAR &TBL %SST(&RT 19 10)
CHGVAR &BIB %SST(&RT 29 10)
CHGVAR &JOBTBL %SST(&RT 39 10)
CHGVAR &JOBBIB %SST(&RT 49 10)
CHGVAR &LANGID %SST(&RT 59 3)
CHGVAR &CNTRYID %SST(&RT 62 2)
CHGVAR &SRCTBL %SST(&RT 64 256)
BCL: CHGVAR &P (&P + 1)
IF (&P > 256) GOTO AFFICHE
IF (%SST(&SRCTBL &P 1) < ' ') +
CHGVAR %SST(&SRCTBL &P 1) ' '
GOTO BCL
AFFICHE: SNDRCVF
IF &IN03 RETURN
GOTO AFFICHE
/*----------------------------------------*/
ERREUR: /* GESTION DES ERREURS */
/*----------------------------------------*/
IF &ERRORSW SNDPGMMSG MSGID(CPF9899) +
MSGF(QCPFMSG) MSGTYPE(*ESCAPE) /* 2EME FOIS*/
| 
| 
| 