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
Still have questions? We can help. Submit a case to Technical Support.