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
 

 

Fileaid 2 commands instream work. In dataset 2nd fails

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
descann

New User


Joined: 10 May 2017
Posts: 5
Location: UK

PostPosted: Tue May 16, 2017 3:31 pm    Post subject: Fileaid 2 commands instream work. In dataset 2nd fails
Reply with quote

Running two change commands (one EA, one replace) as instream data works. Both commands perform updates to same pds.

Code:
//FASTEP  EXEC PGM=FILEAID,REGION=6M
//SYSPRINT DD SYSOUT=*
//SYSLIST  DD SYSOUT=*
//DD01     DD DSN=DMOC.W55555.DATA,DISP=SHR
//SYSIN    DD *
££DD01 UPDATE REPL=(1,0,C"//           VERN",C"//*          VERN")
££DD01 UPDATE EA=(1,0,C".&VERN..",C'.')
/*




Code:
F I L E - A I D  V10.02  16 - MAY - 2017   10.40.17         *CONTROL CARD LIST*
INSTALLATION  BARCLAYS BANK PLC                        086780  RELEASE 04/21/16
     PROGRAM AND ALL MATERIAL COPYRIGHT 1980,2008 BY COMPUWARE CORPORATION
1...5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...80

DD01     DSN=DMOC.W55555.DATA OPENED AS PO,
             RECFM=FB,LRECL=200,BLKSIZE=27800,VOL=ALTSAF
££DD01 UPDATE REPL=(1,0,C"//           VERN",C"//*          VERN")      00111010
ABOVE FUNCTION ENDED ON DIRECTORY END                                    RC=0
  MEMBERS-READ=9,SELECTED=9,UPDATED=1,RECORDS-READ=1315,UPDATED=1

- - - - - - - - - - - - - - - - ACTIONS TAKEN MAP - - - - - - - - - - - - - - -
   RPL#1---------1

DD01     DSN=DMOC.W55555.DATA OPENED AS PO,
             RECFM=FB,LRECL=200,BLKSIZE=27800,VOL=ALTSAF
££DD01 UPDATE EA=(1,0,C".&VERN..",C'.')                                 00112010
ABOVE FUNCTION ENDED ON DIRECTORY END                                    RC=0
  MEMBERS-READ=9,SELECTED=9,UPDATED=1,RECORDS-READ=1315,UPDATED=94

- - - - - - - - - - - - - - - - ACTIONS TAKEN MAP - - - - - - - - - - - - - - -


Same commands read from pds member I get an error on the second card. Can someone tell my why?
Code:
//FASTEP  EXEC PGM=FILEAID,REGION=6M
//SYSPRINT DD SYSOUT=*
//SYSLIST  DD SYSOUT=*
//DD01     DD DSN=DMOC.W55555.DATA,DISP=SHR
//SYSIN    DD DSN=DMOC.UPGRADE.DATA(DSN),DISP=SHR


Code:
EDIT       DMOC.UPGRADE.DATA(DSN) - 01.04                  Columns 00001 00072
Command ===>                                                  Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 ££DD01 UPDATE REPL=(1,0,C"//           VERN",C"//*          VERN")
000002 ££DD01 UPDATE EA=(1,0,C".&VERN..",C'.')
****** **************************** Bottom of Data ****************************


Code:
F I L E - A I D  V10.02  16 - MAY - 2017   10.45.15         *CONTROL CARD LIST*
INSTALLATION  BARCLAYS BANK PLC                        086780  RELEASE 04/21/16
     PROGRAM AND ALL MATERIAL COPYRIGHT 1980,2008 BY COMPUWARE CORPORATION
1...5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...80

DD01     DSN=DMOC.W55555.DATA OPENED AS PO,
             RECFM=FB,LRECL=200,BLKSIZE=27800,VOL=ALTSAF
££DD01 UPDATE REPL=(1,0,C"//           VERN",C"//*          VERN")
ABOVE FUNCTION ENDED ON DIRECTORY END                                    RC=0
  MEMBERS-READ=9,SELECTED=9,UPDATED=1,RECORDS-READ=1315,UPDATED=1

- - - - - - - - - - - - - - - - ACTIONS TAKEN MAP - - - - - - - - - - - - - - -
   RPL#1---------1


CONTROL CARD DOES NOT BEGIN WITH ££DD
.....SKIPPING TO NEXT ££DD CARD                                          RC=4

list tags replaced by code tags
Back to top
View user's profile Send private message

mistah kurtz

Active User


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

PostPosted: Tue May 16, 2017 4:40 pm    Post subject:
Reply with quote

Check the LRECL of the SYSIN PDS: DMOC.UPGRADE.DATA. Is it greater than 80?

Read this File-Aid Batch Reference for more info.
Back to top
View user's profile Send private message
descann

New User


Joined: 10 May 2017
Posts: 5
Location: UK

PostPosted: Tue May 16, 2017 4:55 pm    Post subject:
Reply with quote

Yes it was. Now changed to 80 bytes and it works a treat. Thanks icon_smile.gif
Yes I have been looking at the manual thanks.
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 Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm
No new posts To find out size allocated to a seque... ashek15 JCL & VSAM 15 Thu Apr 27, 2017 9:42 am
No new posts LISTCAT on a dataset with symbolic pa... shreya19 JCL & VSAM 5 Fri Apr 07, 2017 5:43 pm
No new posts Read of TDQ fails in LENGERR Tracy Hansen CICS 10 Wed Apr 05, 2017 12:10 am
No new posts Unable to catalog a gdg dataset resid... Shovan JCL & VSAM 7 Fri Mar 24, 2017 2:24 pm


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