From Support
/***********************************************************************/
/* AUTHOR: RICHARD J. SCHOEN */
/* DATE WRITTEN: 10/02/2002 */
/* PURPOSE: MAIN DOCUMENT CHECK-IN EXIT POINT */
/*EXPECTED PARAMETERS: NONE */
/* SWITCHES USED: NONE */
/* LDA: NONE */
/***********************************************************************/
PGM PARM(&DOCID &REVISION &DOCTITLE &DOCFLR1 +
&DOCFLR2 &DOCFLR3 &KEY1 &KEY2 &KEY3 &KEY4 +
&KEY5 &KEY6 &KEY7 &KEY8 &KEY9 &KEY10 +
&DOCPATH &DOCFILE &DOCTYPE)
DCL VAR(&DOCID) TYPE(*CHAR) LEN(100)
DCL VAR(&REVISION) TYPE(*DEC) LEN(9 0)
DCL VAR(&DOCTITLE) TYPE(*CHAR) LEN(200)
DCL VAR(&DOCFLR1) TYPE(*CHAR) LEN(100)
DCL VAR(&DOCFLR2) TYPE(*CHAR) LEN(100)
DCL VAR(&DOCFLR3) TYPE(*CHAR) LEN(100)
DCL VAR(&KEY1) TYPE(*CHAR) LEN(200)
DCL VAR(&KEY2) TYPE(*CHAR) LEN(200)
DCL VAR(&KEY3) TYPE(*CHAR) LEN(200)
DCL VAR(&KEY4) TYPE(*CHAR) LEN(200)
DCL VAR(&KEY5) TYPE(*CHAR) LEN(200)
DCL VAR(&KEY6) TYPE(*CHAR) LEN(200)
DCL VAR(&KEY7) TYPE(*CHAR) LEN(200)
DCL VAR(&KEY8) TYPE(*CHAR) LEN(200)
DCL VAR(&KEY9) TYPE(*CHAR) LEN(200)
DCL VAR(&KEY10) TYPE(*CHAR) LEN(200)
DCL VAR(&DOCPATH) TYPE(*CHAR) LEN(255)
DCL VAR(&DOCFILE) TYPE(*CHAR) LEN(255)
DCL VAR(&DOCTYPE) TYPE(*CHAR) LEN(10)
DCL VAR(&QDATE) TYPE(*CHAR) LEN(6)
DCL VAR(&QDATMDY) TYPE(*CHAR) LEN(10)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERRORS))
/* RETREIVE SYSTEM DATE */
RTVSYSVAL SYSVAL(QDATE) RTNVAR(&QDATE)
/* CONVERT DATE TO MM/DD/YY */
CVTDAT DATE(&QDATE) TOVAR(&QDATMDY) +
FROMFMT(*SYSVAL) TOFMT(*MDYY) TOSEP('/')
/* MOVE DATE TO KEY 10 */
CHGVAR VAR(&KEY10) VALUE(&QDATMDY)
RJSIMAGE/DOCINFOUPD DOCID(&DOCID) KEYWORD10(&KEY10)
RETURN /* NORMAL EXIT */
/***************************************************/
/* HANDLE ERRORS */
/***************************************************/
ERRORS:
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Errors +
occurred while running Image Server +
document check-in for document ID:' |> +
&DOCID) MSGTYPE(*INFO)
MONMSG MSGID(CPF0000) /* MAKE SURE WE EXIT */
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Errors +
occurred while running Image Server +
document check-in for document ID:' |> +
&DOCID) TOMSGQ(*SYSOPR)
MONMSG MSGID(CPF0000) /* MAKE SURE WE EXIT */
ENDPGM
