Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Viewing code in PANVALET

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
jozef

New User


Joined: 23 Apr 2009
Posts: 5
Location: INDIA

PostPosted: Tue Apr 28, 2009 6:13 pm    Post subject: viewing code in PANVALET
Reply with quote

Could anyone tell me how I can use PAM to view PANVALET source code using a rexx snippet?
Back to top
View user's profile Send private message

Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Tue Apr 28, 2009 7:22 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Apr 29, 2009 7:41 pm    Post subject: Reply to: Viewing code in PANVALET
Reply with quote

Hello,

Your duplicate post has been deleted - do not post the same topic multiple times.

d
Back to top
View user's profile Send private message
jozef

New User


Joined: 23 Apr 2009
Posts: 5
Location: INDIA

PostPosted: Wed May 06, 2009 6:28 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed May 06, 2009 10:30 pm    Post subject:
Reply with quote

Hello,

What does a TRACE show?

You may save yourself some time if you open an issue with CA Support.
Back to top
View user's profile Send private message
jozef

New User


Joined: 23 Apr 2009
Posts: 5
Location: INDIA

PostPosted: Tue May 12, 2009 5:24 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6967
Location: porcelain throne

PostPosted: Tue May 12, 2009 5:36 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us