Sample CL Program for Scanning Document Batches from an emulator with iSeries Office Integrator

 

/******************************************************************/
       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