IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Get system related infos in PL/I


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
parsesource

New User


Joined: 06 Feb 2006
Posts: 97

PostPosted: Wed Mar 11, 2009 10:33 pm
Reply with quote

your program works great

i´ve added the following statement to a job-step

//STDERR DD PATH='/tmp/ASDFASDFASDFASDF.STDERR',
// PATHOPTS=(OWRONLY,OCREAT,OTRUNC),
// PATHMODE=SIRWXU

the program returns

DSInfo.DD = STDERR
DSInfo.DSN = ...PATH=.SPECIFIED...

so as an exercise to the reader, enhance the program to return unix paths too. i´ll try to get a working solution using bpxwdyn icon_biggrin.gif
Back to top
View user's profile Send private message
bauer

New User


Joined: 03 Mar 2009
Posts: 28
Location: germany

PostPosted: Wed Mar 11, 2009 10:46 pm
Reply with quote

Quote:
so as an exercise to the reader, enhance the program to return unix paths too


Just do it ! icon_biggrin.gif icon_biggrin.gif
Back to top
View user's profile Send private message
PeD

Active User


Joined: 26 Nov 2005
Posts: 459
Location: Belgium

PostPosted: Sun Mar 15, 2009 2:28 pm
Reply with quote

Aie, Eine Kleine Wolk
Bauer,

When I executed this program in a jobclass SWA=BELOW, it is fine.
When I ran the program in a jobclass SWA=ABOVE, the program did not give me back the correct SVAB.

As an example

Before starting the SAWREQ routine, display of SVAB is ‘00006F’x for the first file, “0000EF”x for the second, ‘00011F’x for the third, etc With this value the loop
Code:
DO WHILE(SVAB > 65536);
is never activated and the value of SVAB returned is
Code:
SVAB = SVAB +1 +16 +l_QMAT
which is decimal 2136813696 ( 111 + 1 + 16 + 2136813568 ) which seems to be not correct because they are junk characters and not the DSN, the DD name, etc.
Code:
DSN = '5CE2E8000000B01D00007F0000007F5CE3A8000000B02900008F....'x

I spent a part of the night on that. So maybe I need some rest icon_confused.gif icon_confused.gif …..

An idea? Did I missed somethning?

Thanks

Pierre
Back to top
View user's profile Send private message
bauer

New User


Joined: 03 Mar 2009
Posts: 28
Location: germany

PostPosted: Tue Mar 17, 2009 12:44 pm
Reply with quote

Pierre,

the conversion of the three byte address token TIOEJFCB using routine SWAREQ seems to be wrong in case of 31 bit address. I have to check this.

bauer
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> PL/I & Assembler Goto page Previous  1, 2

 


Similar Topics
Topic Forum Replies
No new posts Sysplex System won't IPL at DR site I... All Other Mainframe Topics 2
No new posts How to delete a user's alias from the... JCL & VSAM 11
No new posts Insert system time/date (timestamp) u... DFSORT/ICETOOL 5
No new posts JCL Dynamic System Symbols JCL & VSAM 3
No new posts the system or user abend SF0F R=NULL COBOL Programming 0
Search our Forums:

Back to Top