Ü   PASSING THE PARAMETER IN CL

 

 


 CHGVAR VAR(&IPARM) VALUE(&LVLID || &ORGCODE || &RPTID || &PRINTQ-
 || &PRTQLIB || &HOLD || &SAVE || &PRIORITY || &COPIES || &LANGCODE - 
 || &LPI || &CPI || &LPP || &FORM || &ALIGNMT || &EXTFID || &PRTFID ||-
 &PRTPID || &REQOPT || &LPPOS) 
                                      
 CALL PGM(CTO04R00) PARM(&IPARM)       

PGM(CTO04R00)

 


PGM       PARM(&IPARM) 
DCL       &IPARM      TYPE(*CHAR) LEN(100)        
DCL       &TYPE       TYPE(*CHAR) LEN(1)     
DCL       &LEVLID     TYPE(*CHAR) LEN(2)          
DCL       &ORGAN      TYPE(*CHAR) LEN(3)          
DCL       &REPID      TYPE(*CHAR) LEN(10)         
DCL       &PRTQ       TYPE(*CHAR) LEN(10)         
DCL       &PRTQLB     TYPE(*CHAR) LEN(10)         
DCL       &IHOLD      TYPE(*DEC)  LEN(1 0)        
DCL       &ISAVE      TYPE(*DEC)  LEN(1 0)        
DCL       &OUTPRI     TYPE(*CHAR) LEN(1)                         
 
 
CHGVAR    &LEVLID     %SST(&IPARM  1  2)    
CHGVAR    &ORGAN      %SST(&IPARM  3  3)    
CHGVAR    &REPID      %SST(&IPARM  6 10)    
CHGVAR    &PRTQ       %SST(&IPARM 16 10)    
CHGVAR    &PRTQLB     %SST(&IPARM 26 10)    
CHGVAR    &IHOLD      %SST(&IPARM 36  1)    
CHGVAR    &ISAVE      %SST(&IPARM 37  1)    
CHGVAR    &OUTPRI     %SST(&IPARM 38  1)    
CHGVAR    &COPIES     %SST(&IPARM 39  2)

 

 










User Comments:



Subscribe

  Email:



Copyright © Go4as400.com, 2013-2017. Copyright notice