View previous topic :: View next topic
|
Author |
Message |
jozef
New User
Joined: 23 Apr 2009 Posts: 5 Location: INDIA
|
|
|
|
Could anyone tell me how I can use PAM to view PANVALET source code using a rexx snippet? |
|
Back to top |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006 Posts: 258 Location: Salem, Oregon
|
|
|
|
try this, it will show you how to us PAM
Code: |
/* rexx - read a PanValet directory << READPAN >> *
arg pdsname
pdsname = 'xxx.test.pan'
pamReturnCode = x2b('00')
pamReserved1 = x2b('000000')
pamAction = pamReturnCode || pamReserved1
pamRequest = x2b(c2x('O'))
pamReserved2 = x2b('00')
pamfunction = pamRequest || pamReserved2
pamControlBlock = pamAction || pamfunction
pamDDName = 'PANFILE'
command = '"alloc fi(' || pamDDName || ') da(' || "'" || pdsname ||,
"'" || ') shr reuse"'
INTERPRET command
pamSource = 'NO-ENTRY'
call PAM 'pamControlBlock', 'pamDDName', 'pamSource'
exit |
|
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Your duplicate post has been deleted - do not post the same topic multiple times.
d |
|
Back to top |
|
|
jozef
New User
Joined: 23 Apr 2009 Posts: 5 Location: INDIA
|
|
|
|
Hi,
Thanks much for the help. I tried running the routine but its abending with 0C4.
System abend code 0C4, reason code 00000004.,
Abend in external subroutine PAM.
23 +++ CALL PAM 'PAMCONTROLBLOCK', 'PAMDDNAME', 'PAMSOURCE'
***
Is there any set up that I need to complete before running the code? I am using PAM for the first time and is not much familiar with it. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
What does a TRACE show?
You may save yourself some time if you open an issue with CA Support. |
|
Back to top |
|
|
jozef
New User
Joined: 23 Apr 2009 Posts: 5 Location: INDIA
|
|
|
|
Hi,
Trace is not giving any useful messages in this case. Its just showing the same abend message with a preceding line with just an 'N' in it. But I could find that soc4 abends could be due to
"Problem with the AMODE and RMODE difference. These differences can come when a AMODE 31 program is calling a AMODE 24 subroutine
(usually all Assembler sub routines run below line)" Could this be reason? If yes then how do I make my rexx routine 24? |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
Quote: |
(usually all Assembler sub routines run below line) |
that is not true. assembler code can be AMODE(31) RMODE(any)
are you sure that the PDS you are trying to PAM is a Panvelet PDS?
I would look at the Panvelet documentation, there are examples of REXX Scripts that can be used to perform maintenance.
you might also look at the Panvelet CLIST/REXX exec lib for examples.
No, I have no idea what it is called on your system.
If you are a sys-pgm you know.
If you are an dev suggest you talk with your system folks and find out if
they want you doing what you are trying to do. |
|
Back to top |
|
|
|