Thank you Peter and Enrico. I wanted to know if you have used Z390 assembler emulator. I am confused as to what command-line option I need to use to get a program (which reads and writes a file) running. What I mean is, should I type something after "ASMLG Prog1" at the command-line? There are extensive examples of programs that test the DCB parameters, but my hands are tied since I don't know how to trigger them . If you could help me on that I would be really grateful to all of you.
The program that I am referring to is:
Code:
*********************************************************************
* Copyright 2005 Automated Software Tools Corporation *
* This source code is part of z390 assembler/emulator package *
* The z390 package is distributed under GNU general public license *
* Author - Don Higgins *
* Date - 09/30/05 *
*********************************************************************
TESTDCB1 SUBENTRY
WTO 'TESTDCB1 COPY SYSUT1 ASC TEXT FILE TO SYSUT2 ASC TEXT'
OPEN MF=(E,OFILES)
LOOP EQU *
GET SYSUT1,RECORD
AP PTOT,=P'1'
MVC DTOT,=X'40202020'
ED DTOT,PTOT
PUT SYSOUT,MSG
PUT SYSUT2,RECORD
B LOOP
EOF CLOSE MF=(E,CFILES)
WTO 'TESTDCB1 ENDED OK'
SUBEXIT
OFILES OPEN MF=L,(SYSUT1,INPUT,SYSUT2,OUTPUT,SYSOUT,OUTPUT)
CFILES CLOSE MF=L,(SYSUT1,,SYSUT2,,SYSOUT)
SYSUT1 DCB DDNAME=SYSUT1,RECFM=FT,LRECL=80,EODAD=EOF,MACRF=GM
SYSUT2 DCB DDNAME=SYSUT2,RECFM=FT,LRECL=80,MACRF=PM
SYSOUT DCB DDNAME=SYSOUT,RECFM=FT,BLKSIZE=120,MACRF=PM
PTOT DC PL2'0'
MSG DS 0CL120
DC C'REC#='
DTOT DC CL4' ',C' TEXT='
RECORD DC CL80' '
DC (MSG+120-*)C' '
DCBD
END
Enrico, I did do both RTFM & STFW , but could not find any help. So, I ask you to help me out of the experience that you have.
I am afraid that I cannot be of too much help ...
I do not work on a windows platfor but on a MAC OS X which is a "linux like" opsys so the hints I can give You are of very little help
( apart the fact that since the gentlemen do not support mac os x had to tweak things quite a lot to test it )
the ASMLG command must be issue after starting the z390 full screen interface/shell
. If you could help me on that I would be really grateful to all of you.
, but could not find any help. So, I ask you to help me out of the experience that you have.
