yugendran
New User
.jpg)
Joined: 14 Dec 2007
Posts: 51
Location: indore
|
|
|
|
Hi,
I am trying to open a file in my asm program. I am getting S0C4 during runtime for this statement( OPEN (INDCB,(INPUT)) )
Same statement executes well when run with just modlib.
When i try to run the same with just modlib by commenting the external programs the programs sucessfully reads n writes in flat file.
I am not able to find what went wrong during linking to external program?
Pls help me out in this
| Code: |
ASM1 CSECT
*ENTRY HOUSE KEEPING
STM 14,12,12(13)
BALR 12,0
USING *,12
ST 13,SAVE+4
LA 13,SAVE
*MAINLINE
WTO 'HERE'
OPEN (INDCB,(INPUT))
WTO 'HERE'
OPEN (OUTDCB,(OUTPUT))
LOOP GET INDCB,INAREA
MVC FCVISSDF(5),INAREA
WTO 'HERE'
Commenting the below lines (call to external program)
LA 1,=A(PARM1,DBLWRD)
L 15,=V(PRGB)
BASR 14,15
Commenting end here
MVC OUTAREA(8),DBLWRD
PUT OUTDCB,OUTAREA
EOF CLOSE (INDCB)
CLOSE (OUTDCB)
*EXIT HOUSE KEEPING
L 13,4(13)
LM 14,12,12(13)
BR 14 RETURN
*FILE DCB'S
INDCB DCB DSORG=PS,MACRF=(GM),DDNAME=INFILE,EODAD=EOF,
RECFM=FB,LRECL=80,BLKSIZE=800
OUTDCB DCB DSORG=PS,MACRF=(PM),DDNAME=OUTFILE,
RECFM=FB,LRECL=80,BLKSIZE=800
*CONSTANTS & VARS
INAREA DC CL80' '
OUTAREA DC CL80' '
PARM1 DS 0CL5 ISSUE DATE FIELDS
MONTHS DS PL3 MONTH YEAR CODE
DAYS DS PL2 DAY
DBLWRD DS D
SAVE DS 18F
END |
Thanks
Yuge |
|
