How to read from the screen and write to spool in Assembler?

p.bhaskar naidu · New User Joined: 25 Jun 2005 Posts: 11

Hi,
Could anybody tell me what are the Assembler instructions or macros or commands to use for

1) to read the data from JCL input like Accept in cobol
2) to write the data to spool like Display in cobol

Regards
Bhaskar

enrico-sorichetti · Posted: Mon Jan 07, 2008 5:14 pm

.... OPEN,GET,PUT,CLOSE

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DGT1D511/CCONTENTS?SHELF=DGT1BK33&DN=SC26-7337-01&DT=20001013144924

p.bhaskar naidu · New User Joined: 25 Jun 2005 Posts: 11

enrico-sorichetti,
i know about these instructions limitedly like GET and PUT are used only in reading from file or writing to a file.

but my requirement is..

if i write the JCL

//SYSIN DD *
1234
4567
/*

i should get this data into a assembler filed which was declared in a program.

and also i want to display some text message to spool. How can i achieve this with GET and PUT instructions?

Regards
Bhaskar

enrico-sorichetti · Posted: Mon Jan 07, 2008 5:30 pm

device independence, that' s the buzz word

//SYSIN DD *
//SYSPRINT DD SYSOUT=

are in MVS terminology datasets/files internally managed by the initiator and JES

so any program able to read a sequential dataset with a record lenght of 80 bytes
and able to write a sequential dataset up to 150 bytes
( for pure printer datasets a 121 or 133 lrecl is recommended)

will be able to achieve what You ask for

ACCEPT/DISPLAY are just cobolese shortcuts for
open a sysin ddname, read things from there
open a sysprint/sysout dataset ( I do not remember the exact ddname) ant write to it

p.bhaskar naidu · New User Joined: 25 Jun 2005 Posts: 11

Thank you i got it.

sakthi_karup · New User Joined: 16 Feb 2007 Posts: 1 Location: london

Hi all

please follow this in assembler coding.

USING PARM,R2 INPUT PARAMETER LIST
L R2,0(R1) ADDRESS INPUT PARAMETERS
MVC workfld,PF MOVE FMFT
DROP R2

workfld DS CL8

PARM DSECT
PL DS XL2
PF DS CL8
END