Sequential file access in Assembler (HLASM)

sinusam · New User Joined: 06 Jan 2004 Posts: 18

How to READ / WRITE sequential files in Assembler ?

I tried to do it with DCB macro, but found lot of problems. Shall i set the AMODE, RMODE to 24? what DCB options should i specify ?

Any sites available with sample programs ?

Rgds,
Sinu

somasundaran_k · Active User Joined: 03 Jun 2003 Posts: 134

Sinu
Here is a sample program that will read an input file and write into another one. I have not provided any file handling or error handling. Just GET and PUT. Also note that this program will return a return code
0 in all codition since I'm initialising R(15).

Anyway here is something to start with ..

somasundaran_k · Active User Joined: 03 Jun 2003 Posts: 134

Oops..
Alignment problem in INDCB and OUTDCB.

Please note that the continuation X should be in the 72nd column.

like (hope this will come correct

)

sinusam · New User Joined: 06 Jan 2004 Posts: 18

Dear Somu,

U R Great..

Thanks!!! for the source code.. Lemme try to compile..

lapkow · New User Joined: 17 Oct 2006 Posts: 1

I have a follow-up question:

I take the above program and assemble/link it in the unix enviroment.
How do I specify the in and out DD statements to the program trying
to invoke it from the unix environment.

Chris

cchidhu · New User Joined: 18 Aug 2007 Posts: 4 Location: India

Dear Somu,
If you have document with you then share it here. It will be more helpful

Robert Sample · Posted: Fri Feb 27, 2009 4:18 pm

UmeySan · Posted: Fri Feb 27, 2009 4:50 pm

Hi !

Right Robert !

Or you use the AMODE=24,RMODE=24 for compile and link and within the programm you switch to 31-BitMode before the Dataset operation.

Compile/Link:

LET,LIST,XREF,NCAL,AMODE=24,RMODE=24'

DCB-Definition:

S3FILE_DCB DCB

DDNAME=S3DAT,DSORG=PS,MACRF=PM,DCBE=S3FILE_DCBE
S3FILE_DCBE DCBE RMODE31=BUFF

Dataset operation:

CHGAMODE 31,R14

USING IHADCB,R4
L R4,=A(S3FILE_DCB)

MVC S3JCLNAM,DCBDDNAM

IF DCBOFLGS,Z,DCBOFOPN,TM
OPEN ((R4),OUTPUT)
EIF