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

How to write "$$" using fileaid? Could it be ident


IBM Mainframe Forums -> Compuware & Other Tools
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
alaintwy

New User


Joined: 02 Dec 2007
Posts: 10
Location: Shanghai

PostPosted: Fri Sep 19, 2008 10:57 am
Reply with quote

Hi buddies

IF=(1,0,C"//SYSIN DD *"),
MOVE=(1,0,1),
MOVE=(1,C"$$DD01 COPY IF=(65,EQ,C')') "),
WRITE=DD01

when I check the result, it shows
BODD01 COPY IF=(65,EQ,C')')

why Fileaid use BO to replace $$?

and I try to use
EA=(1,00,C"BODD01",C"$$DD01") but failed.

How to write $$ using fileaid? or we just could manually update?

Many thanks icon_smile.gif
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Fri Sep 19, 2008 11:27 am
Reply with quote

Hello,

Please post a more complete set of your jcl, "data", and fileaid control statements.

It will probably help if you post the output you want from this execution.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Fri Sep 19, 2008 11:36 am
Reply with quote

Hi,

provide JCL, data and messages and what you are trying to achieve.


Gerry
Back to top
View user's profile Send private message
alaintwy

New User


Joined: 02 Dec 2007
Posts: 10
Location: Shanghai

PostPosted: Fri Sep 19, 2008 11:58 am
Reply with quote

dick scherrer wrote:
Hello,

Please post a more complete set of your jcl, "data", and fileaid control statements.

It will probably help if you post the output you want from this execution.


OK, there is a JCL which only has 4 steps, now I need to add two more steps, but I don't want to hard coding, I just want to use fileaid to create these lines.

For example: in this JCL the code is :
//* JS010 PREPARES THE RESTORE FILE *
//* *
//* JS020 RESTORES REQUESTED REPORTS *
//* *
//* JS030 UPDATES THE REPORT INDEX WITH RESTORE INFO *
//* *
//* JS040 DELETES EXPIRED REPORTS FROM USERS REPORT INDEX *

and I use fileaid:

IF=(1,0,C"//* JS040"),
MOVE=(1,0,1),
MOVE=(1,C"//*"),MOVE=(+0,68C' '),
WRITE=DD01,
MOVE=(1,C"//* JS050 PREPARES TO ARCHIVE REPORTS *"),
WRITE=DD01

The result would be

//* JS040 DELETES EXPIRED REPORTS FROM USERS REPORT INDEX *
//* *
//* JS050 PREPARES TO ARCHIVE REPORTS *


Now I will add these two lines:

//SYSIN DD *
$$DD01 COPY IF=(65,EQ,C')')

my code is

IF=(1,0,C"//SYSIN DD *"),
MOVE=(1,0,1),
MOVE=(1,C"$$DD01 COPY IF=(65,EQ,C')') "),
WRITE=DD01

but the result is

//SYSIN DD *
BODD01 COPY IF=(65,EQ,C')')

Fileaid will use BO to replace $$, why?

How can I make it to show $$ ?
Back to top
View user's profile Send private message
alaintwy

New User


Joined: 02 Dec 2007
Posts: 10
Location: Shanghai

PostPosted: Fri Sep 19, 2008 12:02 pm
Reply with quote

gcicchet wrote:
Hi,

provide JCL, data and messages and what you are trying to achieve.


Gerry


Hi I pasted my code on the last floor , pls~~~
Back to top
View user's profile Send private message
alaintwy

New User


Joined: 02 Dec 2007
Posts: 10
Location: Shanghai

PostPosted: Fri Sep 19, 2008 12:15 pm
Reply with quote

$$DD01 USER MEMBER=MSOOS3EY,WRITE=DD01,
IF=(1,0,C"//SYSIN DD *"),
MOVE=(1,0,1),
MOVE=(1,C"$$DD01 COPY IF=(65,EQ,C')') "),
WRITE=DD01

but the result is

//SYSIN DD *
BODD01 COPY IF=(65,EQ,C')')
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 -> Compuware & Other Tools

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files(F1 & F2) and writ... JCL & VSAM 8
No new posts Search two or more word with FILEAID Compuware & Other Tools 15
No new posts Write line by line from two files DFSORT/ICETOOL 7
No new posts PuTTY - "User is not a surrogate... IBM Tools 5
This topic is locked: you cannot edit posts or make replies. How To Write, Compile and Execute Cob... COBOL Programming 5
Search our Forums:

Back to Top