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

Fileaid 2 commands instream work. In dataset 2nd fails


IBM Mainframe Forums -> Compuware & Other Tools
Post new topic   Reply to topic
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
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: 316
Location: Room: TREE(3). Hilbert's Hotel

PostPosted: Tue May 16, 2017 4:40 pm
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> Compuware & Other Tools

 


Similar Topics
Topic Forum Replies
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts Search two or more word with FILEAID Compuware & Other Tools 15
No new posts FINDREP - Only first record from give... DFSORT/ICETOOL 3
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Allocated cylinders of a dataset DB2 12
Search our Forums:

Back to Top