ZOS Logrec (Error log) processing
CONTENTS:
1. System and device errors logs (LOGREC)
2. LOGREC daily processing and save on weekly data set
3. Save weekly data set to tape and empties it /weekly processing/
3.1. Copy IPOSAV.LOGRECW to scratch tape as file BACKUP.LOGREC and empties IPOSAV.LOGRECW without reports
3.2. Copy IPOSAV.LOGRECW to scratch tape as file BACKUP.LOGREC, produce reports from IPOSAV.LOGRECW and empties IPOSAV.LOGRECW
3.3. Copy IPOSAV.LOGRECW (weekly) to GDG tape as file BACKUP.LOGREC(+1) , produce reports from IPOSAV.LOGRECW and empties IPOSAV.LOGRECW
4. Restore the saved tape on IPOSAV.TEST file and print logrecs
4.1. Restore BACKUP.LOGREC file from copied scratch tape at item 3.2 to IPOSAV.TEST1
4.2. Restore BACKUP.LOGREC.G0184V00 GDG file from copied scratch tape at item 3.3 to IPOSAV.TEST2
4.3. Print reports from IPOSAV.TEST1 and IPOSAV.TEST2
4.3.1. Print from IPOSAV.TEST1
4.3.2. Print from IPOSAV.TEST2
The error system records (collected information about hardware and software errors in the form of an error log) are placed in the error recording data set (ERDS also known as LOGREC – logrec data set) by the Error Recovery Program (ERP) of the z/OS operating system. This error log may be written to a z/OS unique ‘dataset’ or in a sysplex – to a ‘logstream’, or you may decide not to record the error log. If the ERDS/LOGREC fills up, then recording stops, and Z/OS continues with no error log recording.
To prevent the stop of error recording, the log is offloaded to a history dataset, which is used to make tape back-ups at regular intervals, LOGREC is cleared for new use and the reports are printed for analyzes.
1. System and device errors logs (LOGREC)
Depending of z/OS installation, ERDS/LOGREC may be a dataset (dsn=BC3A.LOGREC for LPAR=BC3A) or a logstreame (dsn=SYSPLEX.LOGREC.ALLRECS in the Sysplex coupling facility). This may be established in member SYS1.PARMLIB(IEASYS00) for a given LPAR BC2A with unique name as ‘LOGREC=BC3A.LOGREC’ or in member SYS1.PARMLIB(COMMND00) during IPL time with command: COM=’SETLOGRC DATASET’ or COM=’SETLOGRC LOGSTREAM’. ERDS/LOGREC is possible to be changed in TSO/ISPF menu – sd.log – entering the proper command ‘/SETLOGRC DATASET’ or ‘/SETLOGRC LOGSTREAM’. To see what is the current medium of the error recording data set you should enter in sd.log – “/D LOGREC”:
– for LPAR BC2A it is:
IFB090I 14.13.56 LOGREC DISPLAY 568
CURRENT MEDIUM = LOGSTREAM
MEDIUM NAME = SYSPLEX.LOGREC.ALLRECS
STATUS = CONNECTED
– for LPAR BC3A it is:
IFB090I 14.18.28 LOGREC DISPLAY 473
CURRENT MEDIUM = DATASET
MEDIUM NAME = BC3A.LOGREC
Some of these records in ERDS/LOGREC are the result of device or system errors, while others are informational or statistical data. The EREP (Environmental Record Editing and Printing Program) reports (including System summary, Trends, Event history) are analyzed to determine if a problem exists, what the problem is and where the problem is located. These EREP reports can show the status of the entire installation, an I/O subsystem or an individual device depending upon which report you request. EREP (the diagnostic application program) is a service tool which edits and prints records that already exist and is used for maintenance of the Mainframe data processing installation.
Different record types are created by ERP for each incident of all type of errors recorded on the logrec data set (LOGREC) as follows:
– Channel report word (CRW) record – software (generated by IOS modules) and hardware(generated by channel machine malfunction). CRW records are recorded on the logrec data set for all software-and–hardware generated channel report words.
– Outboard (OBR) Record – generated by device or Path failures, Paging I/O errors, Counter overflow statistics.
– Miscellaneous data (MDR) record – generated by buffer overflow, Device failure (teleprocessing devices/terminals), Demount of a device.
– Machine check handler (MCH) record – generated by Central processor, Storage, Storage key, Timer.
– Trends Report – TRENDS=Y – generated performance trend to see when the errors began, their pattern, and when they end – Default period is 30 days.
EREP Selects Error Records created by ERP when building Reports. After records have been filtered according the parameters (PARM) of each report and validity checked, EREP reviews each record to see whether to include it in the requested reports. Since each report has its specific criteria, not all records appear in all reports. (More information exists in EREP V3R5 User’s Guide).
If the ERDS/LOGREC for LPAR=BC3A is a data set (BC3A.LOGREC), the parameters of EREP program (PGM=IFCEREP1) requesting the first specific report processing are as follows:
– LOGREC1 report: PARM=’LINECT=60,ACC=Y,HIST=N,ZERO=Y,SYSUM=Y’
Generated record types for filtering according the above parameters are:
(MCH,CCH,OBR,SOFT,IPL,DDR,MIH,EOD,MDR,AX,BX,CX,DX,EX,FX),MODE ALL
If the ERDS/LOGREC for LPAR=BC2A is a logstream with dsn=SYSPLEX.LOGREC.ALLRECS, the parameters of EREP program (PGM=IFCEREP1) requesting the first specific report processing are as follows:
– LOGREC1 report: PARM=’CARD’: HIST ACC=Y SYSUM
Generated record types for filtering according the above parameters are the same as for data set:
(MCH,CCH,OBR,SOFT,IPL,DDR,MIH,EOD,MDR,AX,BX,CX,DX,EX,FX),MODE ALL
The EREP parameteres requesting the next 8 specific report processing for both cases (dataset or logstream) are as follows:
– LOGREC2 report: PARM=’LINECT=60,TABSIZE=128K,HIST=Y,ACC=Y,PRINT=NO’
Generated record types for filtering according the above parameters are the same as above.
– LOGREC3 report: PARM=’LINECT=60,TABSIZE=128K,HIST=Y,ACC=N,SYSEXN=Y’
Generated record types for filtering according the above parameters are the same as above.
– LOGREC4report:PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=PS,TYPE=CM’,’TABSIZE=512K’)
Generated record types for filtering according the above parameters are as follows:
(MCH,CCH),MODE ALL,PRINT(EDIT,SUMMARY),HISTORY INPUT
– LOGREC5report:PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=AL’,’TYPE=OT,TABSIZE=512K,DEV=(33XX,2305)’)
Generated record types for filtering according the above parameters are as follows:
(OBR,MDR),MODE ALL,PRINT(EDIT,SUMMARY,DATA REDUCTION), HISTORY INPUT
– LOGREC6report:PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=SU’,’TYPE=OT,DEV=(27XX,3277,37XX)’)
Generated record types for filtering according the above parameters are as follows:
(OBR,MDR),MODE ALL,PRINT(SUMMARY),HISTORY INPUT
– LOGREC7report:PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=PS’,’TYPE=OT,DEV=(N33XX,N27XX,N34XX,N3277..)
Generated record types for filtering according the above parameters are as follows:
(OBR,MDR),MODE ALL,PRINT(EDIT,SUMMARY),HISTORY INPUT
– LOGREC8report:PARM=(‘LINECT=60,ACC=N,HIST=Y,EVENT=Y,TYPE=CDEHIMOS’,’TABSIZE=512K,DEV=(N3277)’)
Generated record types for filtering according the above parameters are as follows:
(MCH, CCH,OBR,SOFT, IPL, DDR, MIH, EOD),MODE ALL,EVENT HISTORY,HISTORY INPUT
– LOGREC9 report:PARM=’LINECT=60,ACC=N,HIST=Y,PRINT=PS,TYPE=S’
Generated record types for filtering according the above parameters are as follows:
(SOFT), MODE ALL, PRINT(EDIT,SUMMARY), HISTORY INPUT
The meaning of some parameters of EREP program (PGM=IFCEREP1) are given bellow:
– ACC=Y – Direct EREP to copy the records from the ERDS to EHISTORY.
– ZERO=Y – Direct EREP to clear the ERDS/LOGREC if it is a data set. Clearing the ERDS is necessary “When Near Full” due to the following: if the ERDS/LOGREC is filling up too quickly or EREP goes into a wait mode because some of the I/O devices are not able to complete the transfer of data from buffered-log. The LOGSTREAM information is always cleared during EREP processing!
– TYPE=S (SOFT) – SOFTWARE RECORD report about the abend error due to system (if some system components are not upgraded): S – Software (SFT): System abends and other software events
- TYPE= T – MDR (formerly TPR): Miscellaneous data records
- Type = O – OBR: Outboard records; unit checks
All Erep type parameters may be found following the link:
http://publib.boulder.ibm.com/infocenter/zos/v1r12/index.jsp?topic=%2Fcom.ibm.zos.r12.ifc2000%2Fifc5r10515.htm – in EREP V3R5 Reference.
2. LOGREC daily processing and save on weekly data set
The following job LOGSAVD is for daily processing and saving LOGREC:
//LOGSAVD JOB (9999,OPER,10,10),
// ‘OPERATOR’,
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//* 2.1. SYSPLEX.LOGREC.ALLRECS are written on daily IPOSAV.LOGREC
//LOGREC1 EXEC PGM=IFCEREP1,PARM=’CARD’
//ACCIN DD DSN=SYSPLEX.LOGREC.ALLRECS,
// SUBSYS=(LOGR,IFBSEXIT,,’DEVICESTATS,DELETE’),
// DCB=(RECFM=VB,BLKSIZE=4000)
//ACCDEV DD DSN=IPOSAV.LOGREC,DISP=SHR
//SERLOG DD DUMMY
//DIRECTWK DD UNIT=3390,SPACE=(CYL,15,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSABEND DD SYSOUT=*
//SYSIN DD *
HIST
ACC=Y
SYSUM
//* 2.2 The daily IPOSAV.LOGREC is written on weekly IPOSAV.LOGRECW
//* If IPOSAV.LOGREC is CLEARED before (0% used ) – BC2A.LOGREC is written on
//LOGREC2 EXEC PGM=IFCEREP1,REGION=6M,COND=(0,LT),
// PARM=’LINECT=60,TABSIZE=128K,HIST=Y,ACC=Y,PRINT=NO’
//ACCIN DD DSN=IPOSAV.LOGREC,
// DISP=SHR
//ACCDEV DD DSN=IPOSAV.LOGRECW,
// DISP=(MOD,PASS),
// DCB=(RECFM=VB,BLKSIZE=6144)
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,(5,5))
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* 2.3. EREP prints a system exception report from IPOSAV.LOGREC
//LOGREC3 EXEC PGM=IFCEREP1,COND=(0,LT),REGION=6M,
// PARM=’LINECT=60,TABSIZE=128K,HIST=Y,ACC=N,SYSEXN=Y’
//ACCIN DD DSN=IPOSAV.LOGREC,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,(5,5))
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* 2.4 . EREP prints a channel and machine check from IPOSAV.LOGREC
//LOGREC4 EXEC PGM=IFCEREP1,COND=(4,LT),REGION=6M,
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=PS,TYPE=CM’,
// ‘TABSIZE=512K’)
//ACCIN DD DSN=IPOSAV.LOGREC,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,(5,5))
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* 2.5. EREP prints a 2305 and 3370 summary from IPOSAV.LOGREC
//LOGREC5 EXEC PGM=IFCEREP1,COND=(0,LT),REGION=6M,
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=AL’,
// ‘TYPE=OT,TABSIZE=512K,DEV=(33XX,2305)’)
//ACCIN DD DSN=IPOSAV.LOGREC,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,(5,5))
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* 2.6. EREP prints a tp device summary from IPOSAV.LOGREC
//LOGREC6 EXEC PGM=IFCEREP1,COND=(0,LT),REGION=6M,
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=OT,DEV=(27XX,3277,37XX)’)
//ACCIN DD DSN=IPOSAV.LOGREC,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,(5,5))
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* 2.7. EREP prints a summary of all other I/O from IPOSAV.LOGREC
//LOGREC7 EXEC PGM=IFCEREP1,COND=(0,LT),REGION=6M,
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=PS’,
// ‘TYPE=OT,DEV=(N33XX,N27XX,N34XX,N3277,N2305,N37XX)’)
//ACCIN DD DSN=IPOSAV.LOGREC,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,(5,5))
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* 2.8. EREP prints all but statistical records and local 3277 devices from IPOSAV.LOGREC
//LOGREC8 EXEC PGM=IFCEREP1,COND=(0,LT),REGION=6M,
// PARM=(‘LINECT=60,ACC=N,HIST=Y,EVENT=Y,TYPE=CDEHIMOS’,
// ‘TABSIZE=512K,DEV=(N3277)’)
//ACCIN DD DSN=IPOSAV.LOGREC,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,(5,5))
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* 2.9. EREP prints the daily software information from IPOSAV.LOGREC
//LOGREC9 EXEC PGM=IFCEREP1,COND=(0,LT),REGION=6M,
// PARM=’LINECT=60,ACC=N,HIST=Y,PRINT=PS,TYPE=S’
//ACCIN DD DSN=IPOSAV.LOGREC,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,(5,5))
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DUMMY,DCB=BLKSIZE=80
//* 2.10. EREP empties IPOSAV.LOGREC
//LOGRE10 EXEC PGM=IEBGENER,COND=(0,LT),REGION=6M
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=NULLFILE,
// DISP=SHR,DCB=IPOSAV.LOGRECW
//SYSUT2 DD DSN=IPOSAV.LOGREC,
// DISP=OLD
//* 2.11 SUBMITS JOB IPOWTO TO INFORM OF FAILURE.
//LOGRE11 EXEC IPOWTO,COND=ONLY,REGION=512K
//SYSIN DD *
LOGSAV FAILED – NOTIFY THE ADMINISTRATOR
LOGSAV FAILED – NOTIFY THE ADMINISTRATOR
LOGSAV FAILED – NOTIFY THE ADMINISTRATOR
LOGSAV FAILED – NOTIFY THE ADMINISTRATOR
/*
//*
The above job performs the following steps(TOURIST) and produces the relevant reports (EREPPT):
2.1. Copies SYSPLEX.LOGREC.ALLRECS into a daily output
accumulation data set (iposav.logrec),
clears SYSPLEX.LOGREC.ALLRECS and prints a
‘system summary’ report.
TOURIST: 28 RECORDS SAVED FOR SYSUM PART1
15 RECORDS SAVED FOR SYSUM PART2
1161 RECORDS THAT PASSED FILTERING
EREPPT: S Y S T E M S U M M A R Y (PART 1)
CPU/STORAGE/SCP , SUBCHANNEL/CHANNEL
S Y S T E M S U M M A R Y (PART 2)
I/O SUBSYSTEM
2.2. Copies the output accumulation data set (iposav.logrec)
into a weekly accumulation data
set (iposav.logrecw).
TOURIST: 1161 RECORDS THAT PASSED FILTERING
1161 records are added to the weekly data set iposav.logrecw.
2.3. Prints a system exception report using iposav.logrec as input.
TOURIST: 747 RECORDS SAVED FOR SYSEXN
1161 RECORDS THAT PASSED FILTERING
EREPPT: SYSTEM ERROR SUMMARY (PART 2)
SUBSYSTEM EXCEPTION DASD (2)
PROBABLE
FAILING FAILURE PHYSICAL
UNIT AFFECT CPU ADDRESS SIMS
***********************************************************
SCU 27627.X-XX SCU TOTAL 3
2105- 00 27627.0-00 3
– DASD error information:
DASD SERVICE INFORMATION MESSAGES (SIMS) REPORT DATE 108 12
PERIOD FROM 354 11
TO 108 12
COUNT FIRST OCCURRENCE LAST OCCURRENCE
*******************************************************************************
1 098/12 21:29:23:64 098/12 21:29:23:64
* MODERATE ALERT 2105 S/N 0175-27627 REFCODE 845B-4096-2409
* STORAGE SUBSYSTEM EXCEPTION ON SSID 6270
* SERVICE ACTION IS REQUIRED FOR PROBLEM ID 24
– Tape error information:
DEVICE-0300 S/N 0178-91021 DATE-080/12 TIME-11:03:32:95 ID=35
* SERVICE ALERT D/T-3590-B11 REF1-60FF REF2-7036 REF3-7036
* DV PREVENTIVE MAINTENANCE REQUIRED
* CLEAN DV
DEVICE-0300 S/N 0178-91021 DATE-080/12 TIME-14:06:52:48 ID=36
* SERVICE ALERT D/T-3590-B11 REF1-60FF REF2-C559 REF3-C559
* DV PREVENTIVE MAINTENANCE COMPLETED
* DV CLEANING COMPLETE
2.4. Prints a channel and machine check detail and summary using iposav.logrec as input.
TOURIST: 3 RECORDS THAT PASSED FILTERING
EREPPT: REPORT: CRW EDIT
CHANNEL REPORT WORD INFORMATION
CRW VALIDITY: VALID
CRW: 0B00 0000
RECORDING CODE: 01
ORIGIN: CRW ORIGIN UNAVAILABLE
STORED BY: HARDWARE
CREATED BY: HARDWARE
2.5. Prints a 2305 and 3370 summary using iposav.logrec as input.
TOURIST: 722 RECORDS THAT PASSED FILTERING
2.6. Prints a tp device summary (27xx, 3277, 37xx) using iposav.logrec as input.
TOURIST: 37 RECORDS THAT PASSED FILTERING
EREPPT: REPORT: OUTBOARD SUMMARY
DEVICE NUMBER: 000D00 REPORT: OUTBOARD SUMMARY
MODEL: 2066
DEVICE TYPE: 3277 CPU ID: 01093F
TOTAL NUMBER OF RECORDS 003 TOTAL OF OVERFLOW RECORDS 000
CCW COMMAND CODES ENCOUNTERED(MAXIMUM OF 24)
CMND TOTAL
0B 003
STATISTICAL DATA SUMMARY
TEMPORARY READS 000 TEMPORARY WRITES 000
INTRVNTN REQ’D 001 BUS OUT PAR CHK 000
2.7. Prints a summary of all other I/O using iposav.logrec as input.
TOURIST: 352 RECORDS THAT PASSED FILTERING
EREPPT: DEVICE NUMBER: 000300 REPORT: OUTBOARD (LONG)
SCP: VS 2 REL. 3
DEVICE TYPE: 3590
DEVICE END 1
UNIT CHECK 1
DEVICE NUMBER: 000301
DEVICE TYPE: 3590
ERROR PATH: 0E-0301
CHANNEL END 1
DEVICE END 1
UNIT CHECK 1
2.8. Prints an event report with all but statistical records (mdr) and local 3277 devices using iposav.logrec as input.
TOURIST: 47 RECORDS THAT PASSED FILTERING
EREPPT: EVENT HISTORY TEMPLATE (S/370XA)
RECORD TYPES TOTAL CPU-0
MACHINE CHECK 0 0
OBRTMP 8 8
OBRPRM 2 2
OBRDPA 1 1
OBR 1 1
OUTBOARD 12 12
SFTSYM 20 20
SFTABN 5 5
SOFTWARE 25 25
RECORD TYPES TOTAL CPU-0
MISSING HSCH 2 2
MISSING PRI STATUS 2 2
START PENDING 3 3
MISSING INTERRUPT XA 7 7
HARDWARE 3 3
SOFTWARE 0 0
CHANNEL REPORTS 3 3
OVER ALL TOTALS 47 47
2.9. Prints the daily software information using iposav.logrec as input.
TOURIST: 25 RECORDS THAT PASSED FILTERING
EREPPT: TYPE: SOFTWARE RECORD REPORT: SOFTWARE EDIT REPORT
SYMPTOM SYMPTOM DATA EXPLANATION
PIDS/5697E9300 5697E9300 COMPONENT IDENTIFIER
LVLS/630 630 PROGRAM PRODUCT RELEASE LEVEL
MS/DFHAP0001 DFHAP0001 MESSAGE IDENTIFIER
RIDS/DFHSRP DFHSRP ROUTINE IDENTIFIER
PTFS/UQ83818 UQ83818 PROGRAM TEMPORARY FIX IDENTIFIER
AB/S00C7 00C7 ABEND CODE – SYSTEM
AB/UAKEA AKEA ABEND CODE – USER
RIDS/CILIS06 CILIS06 ROUTINE IDENTIFIER
ADRS/00006A40 00006A40 STORAGE ADDRESS
2.10. Empties iposav.logrec data set.
2.11. Notify the administrator if LOGSAVD FAILED (ABEND S013)
When the user has not enough z/OS rights the job abends with the following message:
IEF450I LOGSAVDS LOGREC1 – ABEND =S013 U0000 REASON=000000C0
3. Save weekly data set LOGSAVW to tape and empties it /weekly processing/
3.1. Copy IPOSAV.LOGRECW (weekly file) to scratch tape as file BACKUP.LOGREC and empties IPOSAV.LOGRECW without reports
//CLGRECW JOB (9999,OPER,10,10),
// ‘CORNERSTONE’,
// CLASS=I, LOGRECW
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//* EMPTIES IPOSAV.LOGRECW.
//COPYTP2 EXEC PGM=IFCEREP1,REGION=4096K,COND=(0,LT),
// PARM=’LINECT=60,TABSIZE=600K,HIST=Y,SYSUM=Y,ACC=Y’
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//ACCDEV DD DSN=BACKUP.LOGREC,
// DISP=(,CATLG,DELETE),VOL=(,,,25),
// LABEL=(1,SL),UNIT=(300,,DEFER),
// DCB=(IPOSAV.LOGRECW)
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
//LOGFUL9 EXEC PGM=IEBGENER,COND=(8,LE,COPYTP2),REGION=4096K
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=NULLFILE,
// DISP=SHR,DCB=IPOSAV.LOGRECW
//SYSUT2 DD DSN=IPOSAV.LOGRECW,
// DISP=OLD
//*
3.2. Copy IPOSAV.LOGRECW (weekly) to scratch tape as file BACKUP.LOGREC, produce reports from IPOSAV.LOGRECW and empties IPOSAV.LOGRECW
//LOGSAVW1 JOB (9999,OPER,10,10),
// ‘CORNERSTONE’,
// CLASS=I,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//* EREP copies IPOSAV.LOGRECW TO BACKUP.LOGREC
//COPYTP2 EXEC PGM=IFCEREP1,REGION=4096K,COND=(0,LT),
// PARM=’LINECT=60,TABSIZE=600K,HIST=Y,SYSUM=Y,ACC=Y’
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//ACCDEV DD DSN=BACKUP.LOGREC,
// DISP=(,CATLG,DELETE),VOL=(,,,25),
// LABEL=(1,SL),UNIT=(300,,DEFER),
// DCB=(IPOSAV.LOGRECW)
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EREP prints TRENDS SUMMARY
//TRENDS3 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE,COPYTP2),
// PARM=’LINECT=60,ACC=N,HIST=Y,TRENDS=Y’
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EREP prints SOFTWARE SUMMARY
//SOFTSU4 EXEC PGM=IFCEREP1,REGION=4096K,COND=(4,LE,COPYTP2),
// PARM=(‘TABSIZE=512K,LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=S’)
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EREP prints CHANNEL CHECK SUMMARY AND MACHINE CHECK
//CCSUM5 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE,COPYTP2),
// PARM=’LINECT=60,ACC=N,HIST=Y,PRINT=SU,TYPE=CM’
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EREP prints 2305 AND 3370 SUMMARY
//DVSUM6 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE,COPYTP2),
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=AL,TYPE=OT’,
// ‘TABSIZE=512K,DEV=(2305,3370)’)
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EREP prints SUMMARY OF COMUNICATIONS/TERMINALS
//COMLOG7 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE,COPYTP2),
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=OT,DEV=(27XX,37XX,3277)’)
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EREP prints I/O ACTIVITY
//LOGIO8 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE,COPYTP2),
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=OT,DEV=(N33XX,N34XX,N2305,N27XX,N37XX,N3277)’)
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EMPTIES IPOSAV.LOGRECW
//LOGFUL9 EXEC PGM=IEBGENER,COND=(8,LE,COPYTP2),REGION=4096K
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=NULLFILE,
// DISP=SHR,DCB=IPOSAV.LOGRECW
//SYSUT2 DD DSN=IPOSAV.LOGRECW,
// DISP=OLD
//*
3.3. Copy IPOSAV.LOGRECW (weekly) to GDG tape as file BACKUP.LOGREC(+1) , produce reports from IPOSAV.LOGRECW and empties IPOSAV.LOGRECW
THIS JOB ASKS THE OPERATOR TO SIGN OUT AND MOUNT A STANDARD
LABELED SCRATCH TAPE , COPIES THE WEEKLY LOGREC DATA SET
IPOSAV.LOGRECW TO THIS TAPE AS A GENERATION DATA SET,
PRODUCES A SYSTEM SUMMARY REPORT, A ‘TRENDS’ SUMMARY
REPORT, A SUMMARY OF ALL SOFTWARE RECORD TYPES, AND THEN
EMPTIES IPOSAV.LOGRECW.
//LOGSAVW2 JOB (9999,OPER,10,10),
// ‘CORNERSTONE’,
// CLASS=I,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//* WTO – SIGN OUT TAPES
//SGNOUT1 EXEC IPOWTO,MSG=’SIGN OUT 1 STD LBL TAPE FOR NEXT STEP (SL)’
//SYSIN DD *
DSN=BACKUP.LOGREC(+1) — WEEKLY DUMP OF LOGREC TO TAPE
RETPD = 365
THE INTERNAL AND EXTERNAL LABELS SHOULD MATCH.
USE THE STANDARD LABEL TAPE NUMBER IN REPLY TO THE TAPE MOUNT REQUEST.
/*
//*
//* EREP copies IPOSAV.LOGRECW TO BACKUP.LOGREC(+1) TAPE GENERATION DATA SET
//COPYTP2 EXEC PGM=IFCEREP1,REGION=4096K,COND=(0,LT),
// PARM=’LINECT=60,TABSIZE=600K,HIST=Y,SYSUM=Y,ACC=Y’
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//ACCDEV DD DSN=BACKUP.LOGREC(+1),
// DISP=(,CATLG,DELETE),
// LABEL=RETPD=365,UNIT=VTS1,
// DCB=(IPOSAV.LOGRECW)
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EREP prints TRENDS SUMMARY
//TRENDS3 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE,COPYTP2),
// PARM=’LINECT=60,ACC=N,HIST=Y,TRENDS=Y’
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EREP prints SOFTWARE SUMMARY
//SOFTSU4 EXEC PGM=IFCEREP1,REGION=4096K,COND=(4,LE,COPYTP2),
// PARM=(‘TABSIZE=512K,LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=S’)
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EREP prints CHANNEL CHECK SUMMARY AND MACHINE CHECK
//CCSUM5 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE,COPYTP2),
// PARM=’LINECT=60,ACC=N,HIST=Y,PRINT=SU,TYPE=CM’
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EREP prints 2305 AND 3370 SUMMARY
//DVSUM6 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE,COPYTP2),
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=AL,TYPE=OT’,
// ‘TABSIZE=512K,DEV=(2305,3370)’)
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EREP prints SUMMARY OF COMUNICATIONS/TERMINALS
//COMLOG7 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE,COPYTP2),
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=OT,DEV=(27XX,37XX,3277)’)
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EREP prints I/O ACTIVITY
//LOGIO8 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE,COPYTP2),
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=OT,DEV=(N33XX,N34XX,N2305,N27XX,N37XX,N3277)’)
//ACCIN DD DSN=IPOSAV.LOGRECW,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//* EMPTIES IPOSAV.LOGRECW
//LOGFUL9 EXEC PGM=IEBGENER,COND=(8,LE,COPYTP2),REGION=4096K
//SYSIN DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=NULLFILE,
// DISP=SHR,DCB=IPOSAV.LOGRECW
//SYSUT2 DD DSN=IPOSAV.LOGRECW,
// DISP=OLD
//*
4. Restore the saved tape on IPOSAV.TEST files and print logrecs
4.1. Restore BACKUP.LOGREC file from copied scratch tape at item 3.2 to IPOSAV.TEST1
//RESLOGWS JOB (9999,OPER,10,10),
// ‘CORNERSTONE’,
// ,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//*
//SYSLGW2 EXEC PGM=IEBGENER,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DSN=BACKUP.LOGREC,DISP=(NEW,CATLG),
// VOL=SER=CB0131,UNIT=(300,,DEFER),
// DCB=(IPOSAV.LOGRECW),LABEL=(1,SL)
//SYSUT2 DD DSN=IPOSAV.TEST1,
// DISP=(,CATLG,DELETE),
// SPACE=(TRK,195), UNIT =DISK,
// DCB=(IPOSAV.LOGRECW)
4.2. Restore BACKUP.LOGREC.G0184V00 GDG file from copied scratch tape at item 3.3 to IPOSAV.TEST2
//RESLOGWG JOB (9999,OPER,10,10),
// ‘CORNERSTONE’,
// ,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//*
//SYSLGW2 EXEC PGM=IEBGENER,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DSN=BACKUP.LOGREC.G0184V00,DISP=(NEW,CATLG),
// VOL=SER=HV0268,UNIT=(301,,DEFER),
// DCB=(IPOSAV.LOGRECW),LABEL=(1,SL)
//SYSUT2 DD DSN=IPOSAV.TEST2,
// DISP=(,CATLG,DELETE),
// SPACE=(TRK,195), UNIT =DISK,
// DCB=(IPOSAV.LOGRECW)
4.3. Print reports from IPOSAV.TEST1 and IPOSAV.TEST2
4.3.1. Print from IPOSAV.TEST1
//PRNTLOG1 JOB (9999,OPER,10,10),
// ‘CORNERSTONE’,
// ,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//*
//TRENDS3 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE),
// PARM=’LINECT=60,ACC=N,HIST=Y,TRENDS=Y’
//ACCIN DD DSN=IPOSAV.TEST1,
// DISP=SHR
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
//SOFTSU4 EXEC PGM=IFCEREP1,REGION=4096K,COND=(4,LE),
// PARM=(‘TABSIZE=512K,LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=S’)
//ACCIN DD DSN=IPOSAV.TEST1,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
//CCSUM5 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE),
// PARM=’LINECT=60,ACC=N,HIST=Y,PRINT=SU,TYPE=CM’
//ACCIN DD DSN=IPOSAV.TEST1,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
//DVSUM6 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE),
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=AL,TYPE=OT’,
// ‘TABSIZE=512K,DEV=(2305,3370)’)
//ACCIN DD DSN=IPOSAV.TEST1,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
//COMLOG7 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE),
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=OT,DEV=(27XX,37XX,3277)’)
//ACCIN DD DSN=IPOSAV.TEST1,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
//LOGIO8 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE),
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=OT,DEV=(N33XX,N34XX,N2305,N27XX,N37XX,N3277)’)
//ACCIN DD DSN=IPOSAV.TEST1,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
4.3.2. Print from IPOSAV.TEST2
//PRNTLOG2 JOB (9999,OPER,10,10),
// ‘CORNERSTONE’,
// ,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=,
// TIME=1440,
// USER=
//*
//TRENDS3 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE),
// PARM=’LINECT=60,ACC=N,HIST=Y,TRENDS=Y’
//ACCIN DD DSN=IPOSAV.TEST2,
// DISP=SHR
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
//SOFTSU4 EXEC PGM=IFCEREP1,REGION=4096K,COND=(4,LE),
// PARM=(‘TABSIZE=512K,LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=S’)
//ACCIN DD DSN=IPOSAV.TEST2,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
//CCSUM5 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE),
// PARM=’LINECT=60,ACC=N,HIST=Y,PRINT=SU,TYPE=CM’
//ACCIN DD DSN=IPOSAV.TEST2,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
//DVSUM6 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE),
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=AL,TYPE=OT’,
// ‘TABSIZE=512K,DEV=(2305,3370)’)
//ACCIN DD DSN=IPOSAV.TEST2,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
//COMLOG7 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE),
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=OT,DEV=(27XX,37XX,3277)’)
//ACCIN DD DSN=IPOSAV.TEST2,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
//LOGIO8 EXEC PGM=IFCEREP1,REGION=4096K,
// COND=(4,LE),
// PARM=(‘LINECT=60,ACC=N,HIST=Y,PRINT=SU’,
// ‘TYPE=OT,DEV=(N33XX,N34XX,N2305,N27XX,N37XX,N3277)’)
//ACCIN DD DSN=IPOSAV.TEST2,
// DISP=SHR
//DIRECTWK DD UNIT=SYSALLDA,SPACE=(CYL,70,,CONTIG)
//TOURIST DD SYSOUT=*,DCB=BLKSIZE=133
//EREPPT DD SYSOUT=*,DCB=BLKSIZE=133
//SYSIN DD DSN=BC2A.ZOS140.PARMLIB(EREPPARM),
// DISP=SHR
//*
Incoming search terms:
- logrec
- ifcerep1
- iposav
Comments
No comments yet, be the first to add one!