Thanks to Sam Siegel it is now working. My problem was that the CEEPIPI 
parameters point to the address of the parameter list.

The following worked:

SDKREADP DS    0A          PARAMETER LIST TO CALL SDKREAD 
         DC    A(CALLSUB)                                 
         DC    A(SDKREADI)                                
         DC    A(TOKEN)                                   
         DC    A(SDKPARM)      Address of address of parameter list             
              
         DC    A(SUBRETC)                                 
         DC    A(SUBRSNC)                                                       
            
SDKPARM  DC    A(PRINTA)          address of parameter list                     
   
PRINTA   DC    A(X'80000000'+PRINT)             parameter list          
PRINT    DC    CL121'PRINT THIS LINE'             parameter        
         DC    X'00'         


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to