Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts Match two files using multiple keys a... santoshks1987 SYNCSORT 11 Fri Aug 18, 2017 10:50 am
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 6 Wed Jul 26, 2017 7:35 pm
No new posts Changeman get multiple "Browse C... elixir1986 Compuware & Other Tools 4 Fri Jul 14, 2017 1:48 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us