I've made some minor changes to FLOWASM. Basically, I changed the code to use
the DD name in the DCB passed by the assembler to FLOWASM in its DCB. This
allows FLOWASM to work if ASMA90 is run from some other program, and the input
DD is changed from SYSIN to some other DD name. In my particular case, this is
what the z/OS UNIX "as" command does. This was simple with just a couple of
statement before the RDJFCB macro.
LA R2,FLOWDCB Point to the DCB
L R8,AXPDCBP Point to passed DCB (my code)
MVC DCBDDNAM,DCBDDNAM-IHADCB(R8) (my code)
MVC FLOWMACW(FLOWRDFML),FLOWRDFM Copy model RDJFCB macro
Doing this allowed the RDJFCB to get an RC of 0. However, the JFCBDSNM was
CL44'...PATH=.SPECIFIED...'. I decided, in this case, to let ASMA90 do the
reading of the input. This was easily done with:
IF CLC,JFCBDSNM,EQ,UNIX
XR R15,R15 Set return code = 0
XR R0,R0 Set reason code = 0
ASMLEAVE , Leave the structure
ENDIF
...
UNIX DC CL44'...PATH=.SPECIFIED...'
Something that I've been thinking of doing is writing a new program, perhaps
called FLOWDRVR. What this will do is "act like" ASMA90 by invoking FLOWASM
with the same parameter list as ASMA90. But it will simply write the
reformatted statements to SYSPUNCH. Why do this? So that, if necessary, I can
run my source through FLOWDRVR to create equivalent source which does not
require FLOWASM to assembler. This would be if I were going to distribute it
and the recipient might not have FLOWASM. Being the strange person that I am, I
would most likely make this program "bi-environmental". That is, it could run
in a batch job via EXEC PGM=FLOWDRVR, or the equivalent in TSO via "CALL
dsn(FLOWDRVR)". Or, it could be run as a UNIX "filter" command, like: cat
program.s|flowdrvr >program.stdfmt.s . This latter is because I'm becoming more
"UNIXy" in my usage, much to the disgust of a few people on IBM-MAIN. I guess
I'm a traitor for using z/OS UNIX instead of restricting myself to historic!
al, legacy. z/OS batch. <shrug>
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
[email protected] * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original message.
HealthMarkets(r) is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The
MEGA Life and Health Insurance Company.SM
