MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

concatenating to a VB dataset

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
linhofbiker
Beginner


Joined: 12 Aug 2005
Posts: 30
Topics: 10

PostPosted: Tue Dec 30, 2008 4:05 pm    Post subject: concatenating to a VB dataset Reply with quote

I get a JCL error when trying to duplicate this logic for the VB file (REXX/CLIST dataset)
Code:

address tso                                                           
uid=sysvar(sysuid)                                                   
"alloc fi(ndvrdr) sysout(a) writer(intrdr)"                           
Queue left("//"uid"PRT  JOB (NDV-08017),'STATS - PRT ',",80)         
Queue left("//         CLASS=B,MSGCLASS=Z,NOTIFY="uid,80)             
Queue left("/*JOBPARM L=9999 ",80)                                   
Queue left("//HC      EXEC PGM=IEBGENER,COND=EVEN ",80)               
if xlib>2 then                                                       
  do                                                                 
   Queue left("//SYSUT1 DD *, ",80)                                   
   Queue left("// LRECL=80,BLKSIZE=0         ",80)                   
   Queue left("printed from: "pdsn"  date: "pdate" "ptime,80)         
   Queue left(" ",80)                                                 
   Queue left("//       DD DSN="pdsn",",80)                           
   Queue left("//          DISP=(SHR,KEEP) ",80)                     
  end                                                                 
else                                                                 
  do 
/* concatenation will not work here */                                                               
   Queue left("//SYSUT1 DD DSN="pdsn",",80)                           
   Queue left("//          DISP=(SHR,KEEP) ",80)                     
  end                                                                 
Queue left("//SYSUT2 DD SYSOUT=(H), ",80)                             
if xlib>2 then                                                       
   Queue left("// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,OPTCD=) ",80)     
else                                                                 
   Queue left("// DCB=(RECFM=VB,LRECL=255,BLKSIZE=3120,OPTCD=) ",80) 
Queue left("//SYSPRINT  DD DUMMY ",80)                               
Queue left("//SYSIN     DD DUMMY ",80)                               
Queue ""                                                             
address mvs "execio * diskw ndvrdr (finis)"                           
mvs_rc=rc                                                             
msg='endevor print job 'uid'prt submitted'
Back to top
View user's profile Send private message Send e-mail
Terry_Heinze
Supermod


Joined: 31 May 2004
Posts: 391
Topics: 4
Location: Richfield, MN, USA

PostPosted: Wed Dec 31, 2008 9:42 am    Post subject: Reply with quote

Your JOB name can be a maximum of 8 characters. Are you concatenating uid with "PRT" to make it 10 characters long? Just a guess.
_________________
....Terry
Back to top
View user's profile Send private message Send e-mail
linhofbiker
Beginner


Joined: 12 Aug 2005
Posts: 30
Topics: 10

PostPosted: Wed Dec 31, 2008 11:04 am    Post subject: Reply with quote

No - I am trying to use this for the VB file
Code:

Queue left("//SYSUT1 DD *, ",80)
Queue left("// LRECL=80,BLKSIZE=0 ",80)
Queue left("printed from: "pdsn" date: "pdate" "ptime,80)
Queue left(" ",80)

but when it runs it gets JCL error with incompatible DCB info

Thanks - John
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

PostPosted: Wed Dec 31, 2008 2:07 pm    Post subject: Reply with quote

linhofbiker,

There are so many irregularities in here.

1.Your first DSN in SYSUT1 is instream data of 80 bytes and you are concatenating another VB file to it? bonk

2. You cannot concatenate FB and VB files together.

Kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
linhofbiker
Beginner


Joined: 12 Aug 2005
Posts: 30
Topics: 10

PostPosted: Fri Jan 02, 2009 8:59 am    Post subject: Reply with quote

The first concatenation is working OK. However the second concatenation attempt fails even when specifying RECFM=VB on the SYSUT1 DD * when variable pdsn is a VB file (rexx/clist library). So, is it possible to do what I wish?

Regards and Happy New Year - John
Back to top
View user's profile Send private message Send e-mail
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Fri Jan 02, 2009 10:55 am    Post subject: Reply with quote

I don't think it is possible directly in the same step. You can add a previous step to convert the inline data to a temp vb data set and use a backwards ddname reference (DDNAME=*.prevstep.ddname) to get the data and that can be concatenated to the VB. I believe there are many examples of doing that conversion with SORT on this board or Kolusu might just put in an example here.

That previous step technique is common for other things too such as when you need to create a member of a PDS like a clist or exec from inline data.
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.
Back to top
View user's profile Send private message Visit poster's website
linhofbiker
Beginner


Joined: 12 Aug 2005
Posts: 30
Topics: 10

PostPosted: Fri Jan 02, 2009 12:03 pm    Post subject: Reply with quote

Thanks semigeezer. I am a real geezer - trained in BAL by IBM London in 1966, so I am not really a beginner just lazy.
Back to top
View user's profile Send private message Send e-mail
semigeezer
Supermod


Joined: 03 Jan 2003
Posts: 1014
Topics: 13
Location: Atlantis

PostPosted: Fri Jan 02, 2009 1:09 pm    Post subject: Reply with quote

I'm may be a semi-geez, but 100% lazy too. (I'd a made a better joke, but that'd be too much effort Smile )
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group