R1 contains the address of the PLIST. It will contain one entry (ie the
first word of the PLIST will have the VL bit set). this entry will point
to a 2 byte length field, followed by a character string whose length is
in the first 2 bytes. IOW, a standard batch parameter list.
===============================================
Wayne Driscoll
OMEGAMON DB2 L3 Support/Development
wdrisco(AT)us.ibm.com
===============================================
From: Scott Ford <scott_j_f...@yahoo.com>
To: IBM-MAIN@bama.ua.edu,
Date: 05/18/2012 10:37 AM
Subject: Rexx - calling assembler question
Sent by: IBM Mainframe Discussion List <IBM-MAIN@bama.ua.edu>
All:
I am in the process of writing a Rexx program that will call an Assembler
program and pass parameters.
The program is simple..
-----------------------------------------------------------------------------------------
Rexx:
/* TSTGFILE */
trace i
say 'Address is: 'address()
address TSO "CALL 'SFORD.LINKLIB(TESTCALL)' 'CLASS(USER' "
----------------------------------------------------------------------------------------
Assembler:
TESTCALL CSECT
TESTCALL AMODE 31
TESTCALL RMODE ANY
YREGS
SPACE 3
SAVE (14,12),,'TESTCALL..&SYSDATE..&SYSTIME'
LR R12,R15
USING TESTCALL,R12
L R4,0(R1)
ST R4,8(R13)
ST R13,4(R4)
LR R13,R4
L R1,4(R1)
MVC CLASSN(8),0(R4)
MVC SUBMSGA+20(8),CLASSN
SUBMSGA WTO 'PARM1: ',ROUTCDE=11
BAILOUT DS 0H
L R13,SAVEAREA+4
RETURN (14,12),RC=0
CLASSN DS CL8
PROFN DS CL8
SAVEAREA DS 18F
----------------------------------------------------------------------------------------------------------------------------------------
Execution JCL:
//REXXGRP JOB ,SYSTEMS,CLASS=A,MSGCLASS=X,
// MSGLEVEL=(1,1),REGION=0M,NOTIFY=&SYSUID
//STEP1 EXEC PGM=IKJEFT01,DYNAMNBR=99
//STEPLIB DD DSN=SFORD.LINKLIB,DISP=SHR
//SYSEXEC DD DSN=SFORD.CLIST.LIBRARY,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
%TSTGFILE
/*
-----------------------------------------------------------------------------------------------------------------------------------------
Output:
J E S 2 J O B L O G -- S Y S T E M A D C D
-- N O
09.17.26 JOB00225 ---- FRIDAY, 18 MAY 2012 ----
09.17.26 JOB00225 IRR010I USERID SFORD IS ASSIGNED TO THIS JOB.
09.17.26 JOB00225 ICH70001I SFORD LAST ACCESS AT 09:17:12 ON FRIDAY,
MAY 18,
09.17.26 JOB00225 $HASP373 REXXGRP STARTED - INIT 1 - CLASS A - SYS
ADCD
09.17.26 JOB00225 IEF403I REXXGRP - STARTED - TIME=09.17.26
09.17.27 JOB00225 +PARM1: CL
09.17.27 JOB00225 IEF404I REXXGRP - ENDED - TIME=09.17.27
09.17.27 JOB00225 $HASP395 REXXGRP ENDED
I assumed I misunderstand how parameters are passed in Rexx to
Assembler...I thought that
R1 pointed to the Adcon list...can someone be so kind as to point this old
fellow .the right way
Regards,
Scott J Ford
Software Engineer
http://www.identityforge.com
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
