Use the following CL program to scan batches of documents from any green screen program:
/******************************************************************/
PGM
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(ERRORS))
/*************************************************/
/* LAUNCH NEW IMAGE BATCH SCAN. */
/*************************************************/
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
MSGDTA('Scanning Document Batch Now') +
TOPGMQ(*EXT) MSGTYPE(*STATUS)
/*************************************************/
/* RUN PC COMMAND TO SCAN DOCUMENT BATCH */
/* Parameters: */
/* 1- Image Server Folder Name */
/* 2- Image Server Document Title */
/* 3-12- Document keywords 1 - 10 */
/* 13-24- Lock/Unlock index fields 1-10(0=Unprotect/1=Protect) */
/* 25- Image Server Document Type */
/* 26 -Lock/Unlock document type field (0=Unprotect/1=Protect) */
/* 27- Temporary file prefix string. Ex: location number 001-999 */
/*************************************************/
OFCRUNPC RMTSYS(*CURRENT) +
CMD('RJSSCANNEWBATCH~Folder~Title~Key1~Key2+
~Key3~Key4~Key5~Key6~Key7~Key8~Key9~Key10~1+
~1~1~1~1~1~1~1~1~1~1~1~DocType~1~001') +
OPTION(*OTHER)
/*************************************************/
/* BAIL OUT IF ERROR OCCURS DURING PC COMMAND */
/*************************************************/
MONMSG MSGID(CPF0000) EXEC(SNDPGMMSG MSGID(CPF9898) +
MSGF(QCPFMSG) MSGDTA('Errors occurred +
while scanning') MSGTYPE(*ESCAPE))
RETURN /* NORMAL EXIT */
/*************************************************/
/* GENERAL ERROR HANDLER */
/*************************************************/
ERRORS:
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Errors +
occurred while running PC command') +
MSGTYPE(*ESCAPE)
ENDPGM
Last Modified On:
No, open a new Support Case