In
<CA+Vt6kN==55uhuthu_joqlweirvqqoncadivx5ba71zpnfj...@mail.gmail.com>,
on 11/01/2011
   at 04:24 PM, Joe Aulph <[email protected]> said:

>*        LOAD  EP=IDCAMS                ,
>*        LR    R15,R0                   ,
>*        CALL  (15),VGCARGL,VL

One of

        LOAD  EP=IDCAMS                
        LR    R15,R0
        LA    R1,VGCARGL
        CALL  (15)

        LOAD  EP=IDCAMS                
        LR    R15,R0                   
        CALL  (15),(VGCOPTA),VL

        LINK  EP=IDCAMS,PARAM=VGCOPTA,VL=1

        LA    R1,VGCARGL
        LINK  EP=IDCAMS


> VGCARGL  DS    0XL12
> VGCOPT    DC    AL4(VGCOPTA)
> VGCDDN    DC    AL4(VGCDDNA)
> VGCPGN   DC    AL4(VGCPGNA)

 VGCARGL  DS    0A
 VGCOPT    DC    AL4(VGCOPTA+X'80000000')

You don't need anything past the end of list.

-- 
     Shmuel (Seymour J.) Metz, SysProg and JOAT
     ISO position; see <http://patriot.net/~shmuel/resume/brief.html> 
We don't care. We don't have to care, we're Congress.
(S877: The Shut up and Eat Your spam act of 2003)

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to