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

Issue in Alloating a file in REXX


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Divakar R

New User


Joined: 19 Feb 2013
Posts: 9
Location: India

PostPosted: Thu Apr 04, 2013 3:23 pm
Reply with quote

We have
Quote:
Out.0=670 records (79 rec len)

"ALLOCATE DD(BR01) NEW SPACE(25) CYLINDERS" ,
"DSORG(PS) LRECL(15004) RECFM(V B)"
"EXECIO * DISKW BR01 (STEM out. FINIS"

"EXECIO * DISKR BR01 (STEM tem. FINIS"
say out.0 ....
Quote:
Displaying 670 count

say tem.0 ...
Quote:
Getting count as 0


Do a=1 to out.0 by 1
say tem.a
Quote:
..displaying "tem.1....tem.670"

End
Back to top
View user's profile Send private message
mistah kurtz

Active User


Joined: 28 Jan 2012
Posts: 316
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Thu Apr 04, 2013 3:39 pm
Reply with quote

Please re-read it. You forgot to ask what to do with your post...you have just outlined what you have done and not what is going wrong.You have not asked any questions.
Back to top
View user's profile Send private message
Divakar R

New User


Joined: 19 Feb 2013
Posts: 9
Location: India

PostPosted: Thu Apr 04, 2013 3:42 pm
Reply with quote

Hi,
Thanks for ur reply.

I need to copy the dats from out.0 to BR01 file.. Which is not happening..

For confirmation.. /I juz moved the BR01 data into tem. and displaying it.
As output, I'm getting tem.1
tem.2
tem.3
....
tem.670

Kindly advise how to allocate a file/ how to move data into new file/ how to daiplay the dta from new file..
Back to top
View user's profile Send private message
Divakar R

New User


Joined: 19 Feb 2013
Posts: 9
Location: India

PostPosted: Thu Apr 04, 2013 3:48 pm
Reply with quote

How to debug RExx programs..?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8796
Location: Welsh Wales

PostPosted: Thu Apr 04, 2013 3:52 pm
Reply with quote

Use TRACE I
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix

PostPosted: Thu Apr 04, 2013 3:53 pm
Reply with quote

Mainly I look at the code, and go through it, see what I've done that is stupid. Else, have a look at Trace in Rexx. When posting problems with Rexx code, always do a Trace, look at it, and only if you still don't get it, post here, including the results of the Trace, please.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Thu Apr 04, 2013 3:54 pm
Reply with quote

first of all read here why using
EXECIO * DISKW is a bad practice
www.ibmmainframes.com/viewtopic.php?t=60269&highlight=execio

and here is a TESTED snippet which allocates, writes, reads without any problems

Code:
/*REXX */
Trace "O"
dsname = "'ENRICO.TEST.MF1'"
aparm  = "SPACE(1 1) TRACKS UNIT(SYSDA) " || ,
         "DSORG(PS) RECFM(F B) LRECL(80) " || ,
         "NEW CATALOG "

del_0ms = msg("OFF")
Address TSO "DELETE "dsname
del_0rc = rc

zrc =  $alloc("DDNAME", dsname, aparm)
say "after the ALLOC  RC("zrc")"
if  zrc \= 0 then do
    say "alloc error for file" dsname
    exit
end

xou.0 = sourceline()
do i = 1 to xou.0
   xou.i = sourceline(i)
end

zrc =  $tsoex("EXECIO" xou.0 "DISKW DDNAME (STEM XOU. FINIS")
say "after the DISKW  RC("zrc")"
if  zrc \= 0 then do
    say "EXECIO error for file" dsname
    exit
end
drop xou.

zrc =  $tsoex("EXECIO" "*"    "DISKR DDNAME (STEM XIN. FINIS")
say "after the DISKR  RC("zrc")"
if  zrc \= 0 then do
    say "EXECIO error for file" dsname
    exit
end

say left(xin.0,4)
do i = 1 to xin.0
   say left(i,4) "-" strip(xin.i, "T")
end

zrc =  $free("DDNAME")
say "after the FREE   RC("zrc")"

del_0ms = msg("OFF")
Address TSO "DELETE "dsname
del_0rc = rc

Exit 0

/* */
novalue:
say  "*********************************"
say  "**                             **"
say  "** novalue trapped at line" || right(sigl,4) || " **"
say  "**                             **"
say  "*********************************"
exit

/* */
$tsoex:
   tso_0tr = trace("O")
   Address TSO arg(1)
   tso_0rc = rc
   trace value(tso_0tr)
   return tso_0rc
/* */
$alloc:procedure
   alc_0tr = trace("O")
   parse upper arg ddnm, dsnm, misc
   ddnm = strip(ddnm)
   dsnm = strip(dsnm)
   dsnm = strip(dsnm,,"'")
   dsnm = "DA('"dsnm"') "
   misc = space(misc)
   alc_0ms = msg("OFF")
   Address TSO "FREE  FI("ddnm") "
   Address TSO "ALLOC FI("ddnm") " dsnm misc
   alc_0rc = rc
   z = msg(alc_0ms)
   trace value(alc_0tr)
   Return alc_0rc
/* */
$free:procedure
   alc_0tr = trace("O")
   parse upper arg ddnm
   ddnm = strip(ddnm)
   alc_0ms = msg("OFF")
   Address TSO "FREE  DD("ddnm") "
   alc_0rc = rc
   z = msg(alc_0ms)
   trace value(alc_0tr)
   Return alc_0rc
Back to top
View user's profile Send private message
Divakar R

New User


Joined: 19 Feb 2013
Posts: 9
Location: India

PostPosted: Thu Apr 04, 2013 7:35 pm
Reply with quote

Existing program.. (reclength= 90)

Code:
brfile.i = "BR" || Right(i,2,"0")                     
"ALLOCATE DD("||brfile.i||") NEW SPACE(25) CYLINDERS" ,
         "DSORG(PS) LRECL(15004) RECFM(V B)"                 
"EXECIO * DISKW "||brfile.i||" (STEM out. FINIS"       
"EXECIO * DISKR "||brfile.i||" (STEM abc. FINIS"       
say out.0                                               
say abc.0                                             
say brfile.i                                           
                                                       
Do a=1 to abc.0 by 1                                   
say abc.a                                             
End       


Quote:
Output
Code:
12           
12           
BR01         
 DATE         
--------------
 2013-04-04   
 2013-04-04   
 2013-04-04   
 2013-04-04   
 2013-04-04   
 2013-04-04   
--------------
             
             
--------------



New Program.. (where reclength = 79 )
Code:
brfile.i = "BR" || Right(i,2,"0")                                 
"ALLOCATE DD("||brfile.i||") NEW SPACE(25) CYLINDERS" ,
         "DSORG(PS) LRECL(15004) RECFM(V B)"     
"EXECIO * DISKW "||brfile.i||" (STEM out. FINIS"       
"EXECIO * DISKR "||brfile.i||" (STEM abc. FINIS"       
say out.0                                             
say abc.0                                             
say brfile.i                                           
brrcnt.i = o                                           
                                                       
Do a=1 to out.0 by 1                                   
say abc.a                                             
End                                                    [quote]Output[/quote]
669
0
BR01
ABC.1
ABC.2
ABC.3
ABC.4
ABC.5
ABC.6
ABC.7
ABC.8
ABC.9
ABC.10
Back to top
View user's profile Send private message
Divakar R

New User


Joined: 19 Feb 2013
Posts: 9
Location: India

PostPosted: Thu Apr 04, 2013 7:38 pm
Reply with quote

I'm unable to understand the reason, Why the new program which was coded as existing.. Is producing diff output..

Can anyone please advise me. How to procedd with this kind of scenario.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Thu Apr 04, 2013 7:39 pm
Reply with quote

the info posted was/is completely useless.
post the whole REXX script

Reread and try to understand my previous script that works
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Thu Apr 04, 2013 7:50 pm
Reply with quote

what are the 90 an 79 lrecls ?
Back to top
View user's profile Send private message
Divakar R

New User


Joined: 19 Feb 2013
Posts: 9
Location: India

PostPosted: Thu Apr 04, 2013 8:15 pm
Reply with quote

Hi Enrico,

Sorry, I'm unable to understand your script. I'm beginner in Rexx. Moreover I'm doing this as part of new develeopment. which needs to be moved into production, and should run daily. I'm executing this program thru JCL.

Kindly advise, what is difference between the above 2 samples..
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL

PostPosted: Thu Apr 04, 2013 8:35 pm
Reply with quote

Divakar R wrote:
Hi Enrico,

Sorry, I'm unable to understand your script. I'm beginner in Rexx. Moreover I'm doing this as part of new develeopment. which needs to be moved into production, and should run daily.

Wow. icon_eek.gif

You don't know Rexx, you have no support or training, and your moron of a boss says, "Hey, kusomushi, write this program chop-chop; we need it for production". I'm glad that I don't work for that sorry outfit.

Enough of this deserved sarcasm, though. Put a trace statement ("TRACE I") at the beginning of your script. Post the output for the lines that you have shown here, in Code tags.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10886
Location: italy

PostPosted: Thu Apr 04, 2013 9:42 pm
Reply with quote

My scripts do not seem that much complicated
unless for complicated You mean the presence of the proper checking of the return codes

what is that You do not understand when I told post the whole script ? icon_evil.gif

did You care to read the topics where I explain why it is plain wrong to use
EXECIO * DISKW
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 -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Does anyone know rexx for VSE CLIST & REXX 3
No new posts Unable to interpret a hex value to De... COBOL Programming 4
No new posts TSO ALLOC In REXX Needs Improvement JCL & VSAM 3
No new posts REXX/CMS How to place command console... CLIST & REXX 4
No new posts XML Generate issue COBOL Programming 0
Search our Forums:

Back to Top