Code: |
MVC OPENPL(MOPENPLL),MOPENPL Copy model Open Plist MVC VBSDATA(MVBSDATAL),MVBSDATA COPY VBSDATA DCB OPEN (VBSDATA,INPUT),MF=(E,OPENPL) LA R2,RECAREA USING VBSRCD30,R2 GET VBSDATA,RECAREA Read data into RECAREA VBSDATA DS XL(MVBSDATAL) Reference DCB - VBSDATA RECAREA DS (32768+4)X MOPENPL OPEN (,),MF=L MOPENPLL EQU *-MOPENPL MVBSDATA DCB DDNAME=VBSDATA,MACRF=GM,DSORG=PS,DEVD=DA,EODAD=EOD MVBSDATAL EQU *-MVBSDATA |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours