kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12369 Topics: 75 Location: San Jose
|
Posted: Tue Jun 14, 2016 12:02 pm Post subject: |
|
|
rajib76,
There is nothing special in reading a VBS datasets in assembler. If you use QSAM GET, it automatically gets the RDW for you. Sample code
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
|
_________________ Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
www.linkedin.com/in/kolusu |
|