RPGIV @ Work

A unique site for RPG and System i Lovers

Welcome!

Hi, this site will provide all what you need in System i and RPG developments.

My Name is Chamara Withanachchi, System i Expert and RPG Developer. And in the field for last 11 years.

I hope you will find lot of valuable information from this site

Submit Batch job from RPGLE Print E-mail
User Rating: / 3
PoorBest 
Written by Chamara Withanachchi   
Submit Batch job from RPGLE
     DQCMDEXC          PR                  EXTPGM('QCMDEXC')  
     DCMD                           220                       
     DCMDLEN                         15  5                    
                                                              
     DCMD              S            220                       
     DCMDLEN           S             15  5                    
	 
	 D #Quat           S              1A   Inz('''') 
	 
     C                   eval      P@jobQ = 'QBATCH'                     
     C                   eval      CMD='SBMJOB CMD(CALL PGM(ID60011'+    
     C                                 ') PARM('+#Quat+p@fdat+#Quat+' '+ 
     C                                 #Quat+p@tdat+#Quat+' '+           
     C                                 #Quat+p@BnkCD+#Quat+' '+          
     C                                 #Quat+p@BnkDS+#Quat+' '+          
     C                                 #Quat+p@Agtyp+#Quat+' '+          
     C                                 #Quat+p@Agtyp1+#Quat+' '+         
     C                                 #Quat+p@Agtyp2+#Quat+' '+         
     C                                 #Quat+p@Format+#Quat+' '+         
     C                                 #Quat+p@BCHINT+#Quat+' '+         
     C                                 #Quat+p@Curcd+#Quat+' '+          
     C                                 #Quat+p@Curds+#Quat+              
     C                                 ')) JOB(FUNDING) LOG(*JOBD '+     
     C                                 '*JOBD *NOLIST) ' +               
     C                                 'LOGCLPGM(*NO)'                   
     C                   eval      CMDLEN = %LEN(%TRIM(CMD))             
     C                   callp(E)  QCMDEXC(CMD:CMDLEN)                   

User Comments

Please login or register to add comments

<Previous   Next>