descann
New User
Joined: 10 May 2017
Posts: 5
Location: UK
|
|
|
|
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 |
|
