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
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
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    Post subject: How to write "$$" using fileaid? Could it be ident
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

Site Director


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

PostPosted: Fri Sep 19, 2008 11:27 am    Post subject:
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: 1703
Location: Australia

PostPosted: Fri Sep 19, 2008 11:36 am    Post subject:
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    Post subject:
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    Post subject:
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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fileaid 2 commands instream work. In ... descann Compuware & Other Tools 2 Tue May 16, 2017 3:31 pm
No new posts Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts RC 20 for Address ISPEXEC "ISRED... pkmurali CLIST & REXX 3 Sun Apr 16, 2017 11:30 pm
No new posts Write R1 and R2 to OP1 and R1 to OP2 bhaskar_kanteti DFSORT/ICETOOL 10 Fri Mar 03, 2017 11:18 am


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