The install bucket provides optimal guidance for installers and maintainers of this ASE product. There may also be times when, knowing a specific APAR number, or a problem symptom, the APAR Index will be more convenient.
Watch for the Y2K Compliance Requirement statement in the body of the install bucket file.
The install bucket for OMCS 2.1 has been updated to include all PTFs and APAR fixes necessary to reach exactly the OMCS 2.8 initial maintenance level. This may require less work than re-installing using OMCS 2.8.
To comment or request assistance, please email ASE Copyright ASE 2008 Last updated: 06:21 WED 28th May 2008 GMT
Choose the FMIDs that you are licenced for from those listed and then examine PTFs and APAR fixes for those FMIDs
| ASEB200 | OMCS 2.1 Base |
| ASEB201 | OMCS Hardware Compression |
| ASEC200 | OMCS IRM |
| ASED200 | OMCS JSF |
| ASEE200 | OMCS CICS Interface |
| ASEG300 | OMCS SRF |
For product OMCS/MVS Version 2.1 to be Y2K Compliant, the FMIDs and SYSMODs identified above this point in this install bucket must have been RECEIVEd and APPLYd. This requirement does not apply to SYSMODs for FMIDs that the installer is not licenced for and hence has not installed.
By FMID, the full list of SYSMODs identified above this point in this install bucket are:
| sysmod_id | type | fmid___ | description______________________ |
| n/a | n/a | n/a | this product is already Y2K compliant |
| sysmod_id | type | fmid___ | description______________________ |
| n/a | n/a | n/a | this product is already Y2K compliant |
| sysmod_id | type | fmid___ | description______________________ |
| n/a | n/a | n/a | this product is already Y2K compliant |
| sysmod_id | type | fmid___ | description______________________ |
| n/a | n/a | n/a | this product is already Y2K compliant |
| sysmod_id | type | fmid___ | description______________________ |
| n/a | n/a | n/a | this product is already Y2K compliant |
| sysmod_id | type | fmid___ | description______________________ |
| n/a | n/a | n/a | this product is already Y2K compliant |
/*####################################################################
DATE: 20010130 PTF: ASP0817 FMID: ASEB200 */
++PTF(ASP0817) REWORK(2001030) /*------------------------------------
ASP0817 990222 ASEB200 P684 GG support new dbvr msgs after asp0911
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002
_APARLIST:
ASZ3058 990222 61VTEL BN OMCSV2 P684 MSGOMCVR21 OMCSDBVS 990225
OMCVR210I OMCSDBVS UNSUPPORTED OMCSDBVR MESSAGE ABOVE after ASP0804
ASZ3246 011223 61vtel BN ASEB200 P911 CONDCODE8 OMCSDBVS ...... o__-GSG
OMCVR210I OMCSDBVS UNSUPPORTED OMCSDBVR MESSAGE ABOVE after ASP0911
_OPERATIONAL NOTES:
1. After ASP0911, program OMCSDBVR can generate several new messages.
This PTF enhances program OMCSDBVS to correctly identify and process
these new messages.
*/.
++VER(Z038) FMID(ASEB200) SUP(ASP0684,ASZ3058,ASZ3246).
++JCLIN.
//STEP1 EXEC PGM=IEWL,
// PARM='LIST,MAP,NCAL,REUS'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLMOD DD DSN=ASE.ASELIB,DISP=SHR
//AASELOAD DD DSN=ASE.AASELOAD,DISP=SHR
//SYSLIN DD *
INCLUDE AASELOAD(OMCSECLX,OMCSIDEN,OMCSDBVS)
ORDER OMCSECLX
ENTRY OMCSECLX
NAME OMCSDBVS(R)
++SRC(OMCSDBVS) DISTLIB(AASEECPS) SYSLIB(ASEECPS) DISTMOD(AASELOAD).
++MOD(OMCSDBVS) DISTLIB(AASELOAD) LEPARM(RENT,REUS).
++SAMP(RUNDBVS) DISTLIB(AASESAMP) SYSLIB(ASESAMP).
download PTF: ASP0817 25k
/*####################################################################
DATE: 20010410 PTF: ASP0905 FMID: ASEB200 */
++PTF(ASP0905) /*------------------------------------------------------
ASP0905 010410 ASEB200 V201 PM OMCSDBEX ASZ3213
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2001
APAR Fixes:
ASZ3207 010223 61VASE PM ASEB200 V201 INCORROUT OMCSDBIM ...... O__-PMD
Msg OMCIM041E RELATIVE BLOCK NUMBER NNNNN TOO HIGH when restoring a
file that was open for extend during the backed up.
ASZ3209 010228 61VASE PM ASEB200 V201 ABU3940 ASEDAMFM ...... O__-PMD
Abend U3940 when a file is verified and the directry entry in the LAB
is incorrect.
ASZ3213 010406 61VNAB LS OMCSV2 V201 WAIT OMCSDBEX ...... O__-PMD
OMCSDBEX waits for a file when attempting to update its backup t/stamp
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3207,ASZ3209,ASP0827,ASZ3078,ASZ3092,
ASP0812,ASZ3051,ASP0886,ASZ3213)
PRE(ASP0846,ASP0804,ASP0855,ASP0757).
++MOD(ASEDAMFM).
++MOD(ASEDAMIM).
++MOD(OMCSDBEX).
++MOD(OMCSDBIM).
download PTF: ASP0905 39k
/*####################################################################
DATE: 20010522 PTF: ASP0906 FMID: ASEB200 */
++PTF(ASP0906). /*---------------------------------------------------
ASP0906 010522 ASEB200 P904 PS support >128 RACF groups in OMCS/ACF rules
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2001
_APARLIST:
ASZ3212 010405 61VTEL BN ASEB200 V201 SUGG OK ASEDAMCF 010423 O__0904
allow acf rule exits to return a list of values for a resource item
ASZ3215 010522 61VTEL BN ASEB200 P904 MSGDAIO84I ASEDAMCF ...... O__-PJS
when user is associated with 217 RACF groups, ACF rule checking fails
with DAIO84I RESOURCE VALUES STAGING STORAGE EXHAUSTED
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0159,ASP0625)
SUP(ASZ3212,ASZ3215,ASP0904).
++MOD(ASEDAMCF).
++SAMP(RACFUIDX).
++SAMP(RACFUIDY) DISTLIB(AASESAMP) SYSLIB(ASESAMP).
download PTF: ASP0906 12k
/*####################################################################
DATE: 20010612 PTF: ASP0909 FMID: ASEB200 */
++PTF(ASP0909). /*---------------------------------------------------
ASP0909 010612 ASEB200 V201 user specified space reclaim "protection" period
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2001
_OPERATIONAL NOTES
The changes introduced by this PTF are described by technical bulletins
TB01-0001 "Protecting Restored Files in an OMCS Database from Space
Reclaim" and TB01-0002 "New AMF Utility Program OMCSAMUX".
_APARLIST:
ASZ3208 010226 61VASE PS ASEB200 P880 INCORROUT OMCSAMFP 010307 S__0893
Changes for APAR ASZ3134 omitted from OMCSAMFP in PTF ASP0880.
Completed AMF request queue records may be out of sequence.
ASZ3217 010612 61VNAB LS ASEB200 V201 SUGG OK OMCSAMFP ...... O__-PJS
allow restored sds files to be "protected" from space reclaim for more
than one day.
ASZ3218 010614 61VASE PS ASEB200 V201 INCORROUT OMCSAMFP ...... O__-PJS
restored sds files only "protected" from space reclaim for 14 hours
instead of the expected 24.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0403,ASP0880)
SUP(ASP0893,ASZ3208,ASZ3217,ASZ3218).
++JCLIN.
//STEP1 EXEC PGM=IEWL,
// PARM='LIST,MAP,NCAL,REUS'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLMOD DD DSN=ASE.ASELIB,DISP=SHR
//AASELOAD DD DSN=ASE.AASELOAD,DISP=SHR
//SYSLIN DD *
INCLUDE AASELOAD(OMCSECLX,OMCSIDEN,OMCSAMUX)
ORDER OMCSECLX
ENTRY OMCSECLX
NAME OMCSAMUX(R)
++SRC(ASESTDPR).
++SRC(OMCSAMFP).
++SRC(OMCSAMUX) DISTLIB(AASEECPS) SYSLIB(ASEECPS) DISTMOD(AASELOAD).
++SRC(OMCSTSDB).
++MOD(ASESTDPR).
++MOD(OMCSAMFP).
++MOD(OMCSAMUX) DISTLIB(AASELOAD) LEPARM(RENT,REUS).
++MOD(OMCSTSDB).
download PTF: ASP0909 142k
/*####################################################################
DATE: 20010716 PTF: ASP0911 FMID: ASEB200 */
++PTF(ASP0911) /*------------------------------------------------------
ASP0911 010716 ASEB200 V201 New directry sysfile structure
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2001
APAR Fixes:
ASZ2934 970715 61VASE PS OMCSV2 P710 INCORROUT ASEDAMGR 970716 __S0758
Bulk copy function of the access method fails if the output file is
to be compressed.
ASZ2967 971118 61VASE PM OMCSV2 P??? INCORROUT OMCSDBUT 971118 __S0758
Backup time stamp is wrong after file backed up with OMCS7BUT is restore
ASZ2985 980115 61VNAB WM OMCSV2 P711 ABS0C4 ASEDAMBM 980120 __S0758
when d/base has many secondaries and a large file is being deleted.
ASZ3090 990810 61VTEL MC OMCS/V2 P804 LOOP OMCSDBVR 990810 S__0894
when PARM='BTECHK FN= FT=' and non-generic filetype specified.
ASZ3221 010716 61VASE PM ASEB200 V210 INCORROUT ASEDAMFM 010716 o__0911
Files lost if insert for directry entry fails.
ASZ3224 010730 61vase pm ASEB200 V201 INCORROUT DBCOPY ...... o__0911
Cmd "DBCOPY DIRECTRY SYSFILE DIRECTRY BACKUP" only copies records which
are after "DIRECTRY BACKUP".
ASZ3222 010726 61vtel JB ASEB200 V201 WAIT ASEDAMGR ...... o__0911
TSO user locks up ASEDA... resource for .JOBDETL MASTER after *** wait
NOTES:
CHANGES TO OMCSDBVR
This PTF enhances OMCSDBVR by adding the ability to "de-gas" the
database directory. This operation removes wasted freespace from
directory blocks and shuffles all records to the start of the file
thereby ensuring that free blocks are available for new directory
entries.
OMCSDBVR will also increase the size of the directory if it is found
to be too small for the database. This will occur the first time
that OMCSDBVR is run with the FIXFILE option after applying this PTF.
It is recommended that a full backup of the database be taken prior
to the first time that OMCSDBVR is run with the FIXFILE option.
The following new operand has been added to the PARM field of OMCSDBVR:
DEGAS - Force file DIRECTRY SYSFILE to be "de-gassed" regardless of
whether it is necessary. If this operand is not specified the
program will determine whether to "de-gas" the directory.
The following new messages are issued by OMCSDBVR:
OMCVR103E DIRECTRY SYSFILE DE-GAS REQUIRED
The database directory contains wasted space and needs to be
de-gassed. The FIXFILE operand must be specified inorder for
OMCSDBVR to automatically de-gas the directory.
OMCVR105I DE-GASSING DIRECTRY SYSFILE
The database directory is being de-gassed.
OMCVR107I DE-GAS COMPLETE
The de-gas operation has completed succesfully.
OMCVR108I DE-GAS FAILED
The de-gas operation did not complete succesfully. A following
message will indicate the cause of the error.
OMCVR109I NO SECONDARY DATABASES DEFINED
This message indicates the CLUSTER SYSFILE file was empty and
there are no secondary databases defined for this database.
OMCVR110E CLUSTER SYSFILE ENTRY NOT IN ROOT BLOCK
The directory entry for CLUSTER SYSFILE was not in the root
block for DIRECTRY SYSFILE. This may prevent CLUSTER SYSFILE
from being found during database initialization. The directory
will be de-gassed to attemp to move the directory entry to the
root block.
OMCVR112E SHORT DIRECTRY ENTRY FOUND
A record was found in the database directory that was too short
to be a valid directory entry. If the FIXFILE option is
specified then the record will be deleted.
OMCVR113I SHORT DIRECTRY ENTRY WILL BE DELETED
A record was found in the database directory that was too short
to be a valid directory entry. The FIXFILE option has been
specified and the record will be deleted.
CHANGES TO ASEDAMFM
ASEDAMFM has been modified to issue the enqueue wait messages:
DAIO45I WAITING FOR ACCESS TO OMCS DATABASE FILE
DAIO45I DATABASE.NAME.FILE=FILENAMEFILETYPE
only once for an outstanding enqueue. A new message:
DAIO45I DATABASE.NAME.FILE=FILENAMEFILETYPE ACQUIRED
will be issued when the enqueue is acquired.
*/.
++VER(Z038) FMID(ASEB200) SUP(ASP0894,ASZ3090,ASZ3221,ASZ3224,ASP0758,
ASZ2934,ASZ2967,ASZ2985,ASZ3222)
PRE(ASP0804,ASP0905,ASP0711,ASP0742,ASP0435).
++HOLD(ASP0911) SYSTEM FMID(ASEB200) REASON(DOC)
COMMENT(SEE COVERLETTER FOR OMVSDBVR CHANGES AND NEW MSGS).
++JCLIN.
++MOD(ASEDAMDM).
++MOD(ASEDAMFM).
++MOD(ASEDAMGR).
++MOD(ASEDAMRM).
++MOD(OMCSDBVR).
++MOD(DBCOPY).
++SRC(DBCOPY).
download PTF: ASP0911 61k
/*####################################################################
DATE: 20010727 PTF: ASP0912 FMID: ASEB200 */
++PTF(ASP0912) /*------------------------------------------------------
ASP0912 010727 ASEB200 V201 ASESTAEX asz3223 asz3237
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2001
APAR Fixes:
ASZ3223 010727 61vase pm ASEB200 V201 ABS10E ASESTAEX ...... S__0912
ABS10E when job running under ASETEST is cancelled.
ASZ3237 011016 61VASE PM ASEB200 V201 ABS0C4 ASESTAEX ...... S__0912
ABS0C4 in ASESTAEX when save areas are above 16 MB.
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3223,ASZ3237) PRE(ASP0360).
++MOD(ASESTAEX).
download PTF: ASP0912 9.8k
/*####################################################################
DATE: 20011015 PTF: ASP0878 FMID: ASEB200 */
++PTF(ASP0878) REWORK(2001288) /*-------------------------------------
ASP0878 001211 ASEB200 V201 PM ASZ3191 Validate decompressed record
lengths and improve diagnostics
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2001
APAR Fixes:
ASZ3191 001204 61VNAB WM ASEB200 P875 ABS0C4 ASEDAMBM ...... O__-PMD
Abend S0C4 in DCMP routine when decompressing a file.
NOTES:
This PTF enhances the validation of decompressed data and prevents S0C4
abends occuring when a bad record is returned by the compression engine.
The following message will now be issued when a bad record is found:
DAIO31E BLOCK DB# NNN BLK# NNNNNNNN BAD RECORD IN UNCOMPRESSED DATA NNN
A new utility program, OMCSARCD has been created to produce diagnostic
data about the bad record and repair it.
NEW MESSAGES:
DAIO27I BLOCK UPDATED
Compressed data that has been patched by OMCSARCD will be written
back to disk. See the proceeding DAIO29I message for details of the
block changed.
DAIO28E BAD RECORD : recordtext
An error has occurred during decompression of a record. The bad record
is displayed. Run OMCSARCD to obtain diagnostics for the error and
contact ASE.
DAIO29I BLOCK DB# NNN BLK# NNNNNNNN PATCHED AT OFFSET NNNNNN
The specified block has been modified by OMCSARCD at the specified
offset.
DAIO30E BLOCK DB# NNN BLK# NNNNNNNN PATCH OLDDATA MISMATCH AT OFFSET NNNNNN
The OLDDATA specified in the PATCH control card does not match the
compressed data in the block. The data will not be patched.
DAIO31E BLOCK DB# NNN BLK# NNNNNNNN BAD RECORD IN UNCOMPRESSED DATA NNN
An error has occurred during decompression of a record. Run OMCSARCD
to obtain diagnostics for the error and contact ASE.
OMCSARCD:
OMCSARCD should be run whenever a JOB ends with an U3931 abend and
message DAIO31E is issued.
Use the following JCL to run OMCSARCD replacing filename filetype
with the name of the file in the DAIO64I message that is issued at
the time of the abend.
//STEP1 EXEC PGM=ECPX,REGION=6M,
// PARM='OMCSARCD filename filetype'
//SYSPRINT DD SYSOUT=*
//ECPLIB DD DSN=YOUR.ASEECPS
//DBASECPX DD DSN=YOUR.DATABASE
//ARCDIAG DD SYSOUT=*,RECFM=VB,LRECL=121,BLKSIZE=3630
Sample JCL can be found in member OMCSARCD of your ASESAMP library.
Diagnostic data will be written to the ARCDIAG DD statement. The data
has the following format:
Diagnostics for block 000 00000003
Dictionary 1 Dump:
E=0000 L= 1.+0000 00 * *
E=0001 L= 1.+0000 01 * *
E=0002 L= 1.+0000 02 * *
E=0003 L= 1.+0000 03 * *
E=0004 L= 1.+0000 04 * *
E=0005 L= 1.+0000 05 * *
E=0006 L= 1.+0000 06 * *
E=0007 L= 1.+0000 07 * *
E=0008 L= 1.+0000 08 * *
E=0009 L= 1.+0000 09 * *
E=000A L= 1.+0000 0A * *
E=000B L= 1.+0000 0B * *
E=000C L= 1.+0000 0C * *
E=000D L= 1.+0000 0D * *
E=000E L= 1.+0000 0E * *
E=000F L= 1.+0000 0F * *
E=0010 L= 1.+0000 10 * *
E=0011 L= 1.+0000 11 * *
.....
E=1FBD L= 4.+0000 F8F1F5F5 *8155 *
E=1FBE L= 9.+0000 F5404040 F0F8F260 F4 *5 082-4 *
E=1FBF L= 3.+0000 F4F9F1 *491 *
E=1FC0 L= 8.+0000 F1404040 F0F240F7 *1 02 7 *
E=1FC1 L= 4.+0000 F7F6F960 *769- *
E=1FC2 L= 4.+0000 60F2F7F6 *-276 *
O=002E39 B=2.+0000 7D91E473 2B32B7BE DC0E5A66 7F468E3F *'jU !
.+0010 B732EABB 525DF1B1 77A3EA22 8BE71F62 * )1 t
.+0020 4B43B090 9E457283 5C9DD0FC 8C03D1D5 *. c* }
.+0030 118AB4ED 399D78C1 3BAA9E7C 9058AE5B * A
.+0040 8929E9E0 0E50B8F0 B98B348C 378F399E *i Z\ & 0
.+0050 27414E45 EBC48AC5 8670B2FC 01CA171E * + D Ef
.+0060 32B6EBFA 8CB65528 DCFF5DA8 E40A612F * – )
.+0070 6343F557 8DBD766E BD3945D0 A25D43C6 * 5 – >–
.+0080 50AEC24E EB4965F1 C48AA1ED 5915113C *& B+ 1D ~
.+0090 6BD5BF64 9BAC3555 F218B5A1 2EFB78E2 *,N 2
.+00A0 98508D3B 61E1E566 ADBD0074 B70CDE69 *q& / V –
.+00B0 1E30CB86 C5E7AD7B 437391A4 BFD75EC9 * fEX # j
.+00C0 3759AA23 A30B289A 207D5FAC EC225D36 * t 'ª
.+00D0 08F6A80F 401D2CD5 141C2927 8F244E65 * 6y N
.+00E0 E497F93F CBC2CFD9 CDB46FBF E8EA88A5 *Up9 B R ?
.+00F0 6AF6DC5A 968EE863 CF7CB1A5 A4E4773B *³6 !o Y @
O=002E39 B=2.+0000 7D91E473 *'jU *
C=1EC8 L= 30.+0000 F9404040 40404040 40404040 40404040 *9
.+0010 4040F2F0 F04BF0F0 0000007F 40F2 * 200.00
O=002E3A B=7.+0000 91E4732B *jU *
C=1E47 L= 21.+0000 F0F0F0F1 F0F2F5F0 F9F3F0F0 F3F0F9F3 *00010250930
.+0010 F0F0F0F0 F0 *00000 *
O=002E3C B=4.+0000 732B32B7 * *
C=0656 L= 9.+0000 F7F3F9F8 F2F0F0F0 F0 *739820000 *
O=002E3E B=1.+0000 32B7BEDC * *
C=0CAD L= 3.+0000 F2F4F9 *249 *
O=002E3F B=6.+0000 B7BEDC0E * *
C=1DF6 L= 6.+0000 F44040F3 F3F4 *4 334 *
O=002E41 B=3.+0000 DC0E5A66 * ! *
C=1C0E L= 3.+0000 F2F5F2 *252 *
....
U=01CC64 .+0000 0000007F 40F1F9F6 F5F1F0F2 F5F0F9F3 * " 196510
.+0010 F0F0F0F0 F0F0F0F0 F3F0F9F7 F3F9F8F2 *00000000309
.+0020 F0F4F0F0 F0F0F0F0 4040F3F3 F4F2F5F2 *04000000 3
.+0030 40404040 40F0F0F0 F0F0F0F0 F0F0F0F0 * 000000
.+0040 40404040 40F0F0F0 F0F0F0F8 F5F74040 * 000000
.+0050 40F0F8F5 60F5F9F9 404040F4 F640F9F9 * 085-599
The lines beginning E= are a dump of the decompression dictionary. E=
is the entry number and L= is the length of the entry. This is followed
by a dump of the entry.
The lines beginning O= are a dump of the compressed data. O= is the
offset into the hardware compression output. B= is the bit number at
which the next code starts.
The lines beginning C= are a dump of the compression codes. C= is the
next code and L= is the length of the string that it represents. This
is followed by a dump of the string that the code represents.
The lines beginning U= are a dump of the uncompressed string. C= is the
offset of the string in the uncompressed output.
A listing of records in the area of the bad record will also be printed
to the SYSPRINT DD:
READING IDMEPD9L #0014699
BAD RECORD DUMP START RECORD NUMBER 920 -------------------------------
19651025093003093003009378204002467 630540 00000000000 0000007
19651025093003093003009378204002475 630541 00000000000 0000051
19651025093003093003009378204002476 630542 00000000000 0000051
19651025093003093003009378204002496 630619 00000000000 0000065
19651025093003093003009378204002469 630628 00000000000 0000033
19651025093003093003009378204002416 630761 00000000000 0000011
19651025093003093003009378204002411 630838 00000000000 0000015
19651025093003093003009378204002413 630859 00000000000 0000000
19651025093003093003009378204002415 630865 00000000000 0000024
19651025093003093003009378204002497 630885 00000000000 0000000
19651025093003093003009378204002448 630912 00000000000 0000001
19651025093003093003009378204002402 630927 00000000000 0000026
19651025093003093003009378204002472 630030 00000000000 0000081
19651025093003093003009378204002428 630083 00000000000 0000708
THE FOLLOWING RECORD IS BAD:
19651025093003093003009378204002494 630252 00000000000 0000008
3009378204002417 334522 00000000000 000000301 124-001 01 04
19651025093003093003009378204002412 630533 00000000000 0000200
19651025093003093003009378204002409 630541 00000000000 0000005
19651025093003093003009378204002490 630589 00000000000 0000000
19651025093003093003009378204002470 630619 00000000000 0005502
19651025093003093003009378204002586 630847 00000000000 0000001
19651025093003093003009378204002575 630860 00000000000 0000053
19651025093003093003009378204002567 630948 00000000000 0000027
19651025093003093003009378204002566 630981 00000000000 0004021
19651025093003093003009378204002549 630986 00000000000 0000000
19651025093003093003009378204002538 630994 00000000000 0002774
19651025093003093003009378204002553 630001 00000000000 0000000
19651025093003093003009378204002581 630013 00000000000 0000009
19651025093003093003009378204002568 630041 00000000000 0000000
19651025093003093003009378204002569 630048 00000000000 0000018
19651025093003093003009378204002535 630115 00000000000 0000124
BAD RECORD DUMP END RECORD NUMBER 950 ---------------------------------
Both reports should be emailed to ASE for analysis.
PATCH CONTROL CARDS:
ASE will identified the incorrect compression code and supply a
PATCH control card to repair the file. The PATCH control cards
are read from the ARCPATCH DD statement. This card will have the
following format:
----+----1----+----2----+----3----+----4----+----5----+------
FilenameFiletype db# blocknum offset olddata- replace- UPDATE
FilenameFiletype starts in column 1 and is the name of the file to
be patched
db# starts in column 18 and is a 3 digit database number
of the block containing the bad code.
blocknum starts in column 22 and is an 8 digit block number
of the block containing the bad code.
offset starts in column 21 and is a 6 digit offset into the
hardware compressed data of the code to be replaced.
olddata- starts in column 38 and is an 8 digit hexidecimal
representation of the data at the specified offset.
This is verified against the actual data in the block
prior to it being updated.
replace- starts in column 47 and is an 8 digit hexidecimal
representation of the data to the placed at the
specified offset if the verify string matches the data
in the block.
UPDATE starts in column 56 and is an optional keyword. If
specified the replaced data in the block will be
written back to disk and the file will be permanently
changed.
The following is an example:
IDMEPD9L#0014699 000 00000003 002E51 77A3EA22 77A3AA22
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3191,ASP0707,ASZ3184,ASP0875,ASP0700,
ASP0705)
PRE(ASP0911,ASP0830,ASP0625).
++JCLIN.
++MOD(ASEDAMBM).
++MOD(ASEDAMFM).
++MOD(OMCSARC2).
++MOD(OMCSARCD) DISTLIB(AASELOAD) LEPARM(RENT,REUS).
++SRC(OMCSARCD) DISTLIB(AASEECPS) SYSLIB(ASEECPS) DISTMOD(AASELOAD).
++SAMP(RUNARCD) DISTLIB(AASESAMP) SYSLIB(ASESAMP).
download PTF: ASP0878 39k
/*####################################################################
DATE: 20020118 PTF: ASP0923 FMID: ASEB200 */
++PTF(ASP0923). /*---------------------------------------------------
ASP0923 020118 ASEB200 V210 Enhance AMF reporting and cleanup utilities
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2001
_APARLIST:
ASZ3249 020116 61VTEL MC ASEB200 V201 INCORROUT OMCSAMFG ...... O__-PJS
negative numbers may appear in AMF restore summary report.
ASZ3250 020117 61VASE GG ASEB200 V201 SUGG OK OMCSAMFG ...... O__-PJS
modify AMF to report on incomplete restores and to clean up the records
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0735,ASP0857)
SUP(ASZ3249,ASZ3250).
++SRC(OMCSAMFC).
++SRC(OMCSAMFG).
++MOD(OMCSAMFC).
++MOD(OMCSAMFG).
download PTF: ASP0923 26k
/*####################################################################
DATE: 20020223 PTF: ASP0938 FMID: ASEB200 */
++PTF(ASP0938). /*---------------------------------------------------
ASP0938 020223 ASEB200 V210 add restore age summary to AMF reporting
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002
_APARLIST:
ASZ3274 020719 61VASE GG ASEB200 V210 SUGG OK OMCSAMFG ...... O__-PJS
add restored file age summary to AMF reporting options.
ASZ3275 020724 61VASE PS ASEB200 V210 INCORROUT OMCSAMFG ...... O__-PJS
when batch job submitted to produce AMF reports, it has unknown datasets
in ECPLIB DD statement and fails with a JCL error.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0265,ASP0857,ASP0923)
SUP(ASZ3274,ASZ3275).
++SRC(OMCSAMFG).
++MOD(OMCSAMFG).
++PNL(OMCHAMFG).
++PNL(OMCHAMRE) DISTLIB(AASEPANL) SYSLIB(ASEPANL).
++PNL(OMCHAMR1) DISTLIB(AASEPANL) SYSLIB(ASEPANL).
++PNL(OMCHAMR2).
++PNL(OMCHAMR3) DISTLIB(AASEPANL) SYSLIB(ASEPANL).
++PNL(OMCSAMFG).
++PNL(OMCSAMR2).
download PTF: ASP0938 30k
/*####################################################################
DATE: 20020408 PTF: ASP0927 FMID: ASEB200 */
++PTF(ASP0927) /*------------------------------------------------------
ASP0927 020408 ASEB200 V201 ASZ3256 Correct DBCOPY return code
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002
APAR Fixes:
ASZ3256 020408 61vtel mc ASEB200 V201 INCORROUT DBCOPY ...... O__-PMD
DBCOPY incorrectly returns cc=0 when ASEDBCPY returns a non zero return
code.
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3256)
PRE(ASP0911).
++MOD(DBCOPY).
++SRC(DBCOPY).
download PTF: ASP0927 2.6k
/*####################################################################
DATE: 20020417 PTF: ASP0928 FMID: ASEB200 */
++PTF(ASP0928). /*---------------------------------------------------
ASP0928 020417 ASEB200 V201 Correct batch ACF rule compiler
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002
_APARLIST:
ASZ3214 010410 61VASE PS ASEB200 V201 INCORROUT ASEDAMRC 010418 O__-PJS
when batch ACF rule compile does not have update access to ACCRDATA
SYSFILE, it ends with return code 0 even though ACF rules not updated.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0807)
SUP(ASZ3214).
++SRC(ASEDAMRC).
++MOD(ASEDAMRC).
download PTF: ASP0928 26k
/*####################################################################
DATE: 20020417 PTF: ASP0929 FMID: ASEB200 */
++PTF(ASP0929). /*---------------------------------------------------
ASP0929 020417 ASEB200 V201 Correct SMP/E source update program
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002
_APARLIST:
ASZ3229 010829 61VASE PS ASEB200 V210 INCORROUT ASMPEDIT 010829 O__-PJS
when source has commented SET @SYSMOD=... statements and /* is not in
column one, the @SYSMOD update is performed incorrectly.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0848)
SUP(ASZ3229).
++SRC(ASMPEDIT).
++MOD(ASMPEDIT).
download PTF: ASP0929 21k
/*####################################################################
DATE: 20020417 PTF: ASP0931 FMID: ASEB200 */
++PTF(ASP0931). /*---------------------------------------------------
ASP0931 020417 ASEB200 V201 Correct AMF utility program OMCSAMUX
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002
_APARLIST:
ASZ3232 010905 61VNAB LS ASEB200 P909 INCORROUT OMCSAMUX 010906 O__-PJS
OMCEC046I 02 ? LINE# 0403 &DATE(...) INVALID DATE EXPRESSION
ECL error processing backup dataset with expiry date < creation date.
ASZ3233 010906 61VASE PS ASEB200 P909 INCORROUT OMCSAMUX 010906 O__-PJS
OMCAMX17I may be issued saying a backup's expiry date has been increased
but the from and to dates are the same.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0909)
SUP(ASZ3232,ASZ3233).
++SRC(OMCSAMUX).
++MOD(OMCSAMUX).
download PTF: ASP0931 15k
/*####################################################################
DATE: 20020417 PTF: ASP0932 FMID: ASEC200 */
++PTF(ASP0932). /*---------------------------------------------------
ASP0932 020417 ASEC250 V201 Correct ECL error in report discovery jobs
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002
_APARLIST:
ASZ3239 011031 61VASE PS ASEC250 P885 INCORROUT OMCSXWRP 011031 O__-PJS
OMCEC046I 02 OMCSXWRP LINE# 1070 UNSUPPORTED VERB
ECL error after IR645I message reporting a redirect.
*/
++VER(Z038) FMID(ASEC200)
PRE(ASP0885)
SUP(ASZ3239).
++SRC(OMCSXWRP).
++MOD(OMCSXWRP).
download PTF: ASP0932 65k
/*####################################################################
DATE: 20020417 PTF: ASP0933 FMID: ASEB200 */
++PTF(ASP0933). /*---------------------------------------------------
ASP0933 020417 ASEB200 V201 Correct S0C4 in batch DDR jobs
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002
_APARLIST:
ASZ3244 011214 61VNAB LS ASEB200 P899 ABS0C4 OMCSDDRB 011217 O__-PJS
S0C4 at OMCSECPI+16CC when running DDR batch program OMCSDDRB.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0899)
SUP(ASZ3244).
++SRC(OMCSDDRB).
++MOD(OMCSDDRB).
download PTF: ASP0933 9.8k
/*####################################################################
DATE: 20020709 PTF: ASP0935 FMID: ASEB200 */
++PTF(ASP0935) REWORK(2002190) /* -------------------------------------
ASP0935 020509 ASEB200 V201 Enhance DCMP dictionary locate performance
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002
APAR Fixes:
ASZ3248 020104 61VNAB LS ASEC200 V201 ABS0C4 OMCSIRRI 020523 S__0935
ABENDS0C4 at OMCSIRRI+2EA in report discovery job.
ASZ3245 011220 61VASE PS ASEB200 V201 ABS0C4 ASEDAMGR 020709 S__0935
S0C4 at ASEDAMGR+150 after job issues message DAIO45I WAITING ...
Abend occurs after the resource becomes available - followed by SA78.
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3248,ASZ3245)
PRE(ASP0878).
++MOD(ASEDAMBM).
++MOD(ASEDAMFM).
download PTF: ASP0935 24k
/*####################################################################
DATE: 20021031 PTF: ASP0940 FMID: ASEB200 */
++PTF(ASP0940) /*------------------------------------------------------
ASP0940 021031 ASEB200 V210 Prevent OMCSDBRE and OMCSDBIM creating
duplicate directory entries.
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002
APAR Fixes:
ASZ3281 021031 1TXMAS TT OMCSV2 V210 INCORROUT OMCSDBIM 021104 S__0940
OMCSDBIM and OMCSDBRE create multiply directory entries with fileid
x'ffffffffffffffff' if ACF rules prevent deletion of files
ASZ3282 021031 1TXMAS TT OMCSV2 V210 INCORROUT OMCSDBVR 021104 S__0940
OMCSDBVR fails to delete duplicate directory entries if they occur at
the end of the directory
ASZ3283 021031 61VASE PM OMCSV2 V210 LOOP OMCSDBRE 021104 S__0940
OMCSDBRE loops when restoring a file to a database with a larger block
size that has insufficient space in the primary dataset.
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3281,ASZ3282,ASZ3283)
PRE(ASP0905,ASP0757,ASP0911).
++MOD(OMCSDBIM).
++MOD(OMCSDBRE).
++MOD(OMCSDBVR).
download PTF: ASP0940 45k
/*####################################################################
DATE: 20030124 PTF: ASP0942 FMID: ASEC200 */
++PTF(ASP0942). /*---------------------------------------------------
ASP0942 030124 ASEC200 V210 correct CAN cmd behaviour in IRM MA rules
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2002
_APARLIST:
ASZ3286 030117 61VACI JE ASEC250 V210 INCORROUT OMCSRASC ...... S__0942
When a new MA rule is being created, CANCEL cmd does not discard it.
*/
++VER(Z038) FMID(ASEC200)
PRE(ASP0810)
SUP(ASZ3286).
++SRC(OMCSRASC).
++MOD(OMCSRASC).
download PTF: ASP0942 25k
/*####################################################################
DATE: 20030124 PTF: ASP0943 FMID: ASEB200 */
++PTF(ASP0943). /*---------------------------------------------------
ASP0943 030124 ASEB200 V210 fix ASEALLOC
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3254 020318 61VASE PS ASEB200 P436 INCORROUT ASEALLOC 020319 O__-PJS
ECL ALLOC statement with DATACLAS, MGMTCLAS and/or STORCLAS operands
fails with dynalloc error 9700.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0436)
SUP(ASZ3254).
++MOD(ASEALLOC).
download PTF: ASP0943 12k
/*####################################################################
DATE: 20030124 PTF: ASP0944 FMID: ASEC200 */
++PTF(ASP0944). /*---------------------------------------------------
ASP0944 030124 ASEC250 V210 report discovery fixes
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3257 020418 61VTEL BN ASEC250 V201 INCORROUT OMCSXWRP 020423 O__-PJS
When there is no hardcopy bundling (ie. online viewing only), records
accumulate in EXISREPT /IRM file and are never cleaned up.
ASZ3262 020503 61VASE PS ASEC200 V201 INCORROUT OMCSXWIR 020503 S__-PJS
When an MA rule has no analysis segments, each successive summary record
contains part of the preceding one.
*/
++VER(Z038) FMID(ASEC200)
PRE(ASP0890,ASP0932)
REQ(ASZ3259)
SUP(ASZ3257,ASZ3262).
++SRC(OMCSXWIR).
++SRC(OMCSXWRP).
++MOD(OMCSXWIR).
++MOD(OMCSXWRP).
download PTF: ASP0944 92k
/*####################################################################
DATE: 20030124 PTF: ASP0945 FMID: ASEB200 */
++PTF(ASP0945). /*---------------------------------------------------
ASP0945 030124 ASEB200 V210 fix OMCSPARM
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3258 020423 61VASE PS ASEB200 V201 INCORROUT OMCSPARM 020423 O__-PJS
changes for compatibility with ECL V3
ASZ3259 020423 61VASE PS ASEB200 V201 INCORROUT OMCSPARM 020423 O__-PJS
bad parameter processing causes ECL error when OMCSPARM called from
within OMCSXWRP after ASZ3257.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0241)
SUP(ASZ3258,ASZ3259).
++SRC(OMCSPARM).
++MOD(OMCSPARM).
download PTF: ASP0945 12k
/*####################################################################
DATE: 20030124 PTF: ASP0946 FMID: ASEB200 */
++PTF(ASP0946). /*---------------------------------------------------
ASP0946 030124 ASEB200 V210 fix DI rule editor
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3261 020426 61VODP TI ASEB200 P841 INCORROUT OMCSDSIU 020430 O__-PJS
When the DI rule master file (.DSIRULE MASTER) does not exist, DI rule
editor will not create it. User cannot add the first DI rule.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0841)
SUP(ASZ3261).
++SRC(OMCSDSIU).
++MOD(OMCSDSIU).
download PTF: ASP0946 45k
/*####################################################################
DATE: 20030124 PTF: ASP0947 FMID: ASEB200 */
++PTF(ASP0947). /*---------------------------------------------------
ASP0947 030124 ASEB200 V210 AMF fixes
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3270 020701 61VTEL MC ASEB200 P923 INCORROUT OMCSAMFC 020704 S__-PJS
ECL error - LABEL NOT FOUND "STG3BF"
ASZ3272 020716 61VASE PS ASEB200 V201 INCORROUT OMCSAMX1 020716 O__-PJS
AMF tape consolidation program, OMCSAMCO, attempts to restore files from
an archive dataset that does not contain those files.
ASZ3285 021126 61VNAB LS ASEB200 V210 INCORROUT OMCSAMUT 021127 O__-PJS
Message OMCEC046I 01 OMCSAMUT LINE# 0272 COMPARAND > 256 CHARACTERS
ECL error while running AMF index cleanup.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0735,ASP0855,ASP0923)
SUP(ASZ3270,ASZ3272,ASZ3285).
++SRC(OMCSAMFC).
++SRC(OMCSAMUT).
++MOD(OMCSAMFC).
++MOD(OMCSAMX1).
++MOD(OMCSAMUT).
download PTF: ASP0947 14k
/*####################################################################
DATE: 20030124 PTF: ASP0948 FMID: ASEC200 */
++PTF(ASP0948). /*---------------------------------------------------
ASP0948 030124 ASEC250 V210 fix IRM structure check
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3271 020711 61VTEL MC ASEC250 P328 INCORROUT OMCSIRSC 020711 O__-PJS
when only one report is defined, this message is issued incorrectly
"+++ WARNING - THERE ARE NO REPORT INDEX RECORDS"
*/
++VER(Z038) FMID(ASEC200)
PRE(ASP0813)
SUP(ASZ3271).
++SRC(OMCSIRSC).
++MOD(OMCSIRSC).
download PTF: ASP0948 18k
/*####################################################################
DATE: 20030124 PTF: ASP0949 FMID: ASEC200 */
++PTF(ASP0949). /*---------------------------------------------------
ASP0949 030124 ASEC250 V210 fix IRM A to B conversion program
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3278 020926 61VTEL MC ASEC250 V210 INCORROUT OMCSFX9 020927 O__-PJS
when USERPEND file exists but is empty, conversion process mistakenly
copies contents of USRBYREP file into USERPEND.
*/
++VER(Z038) FMID(ASEC200)
PRE(ASP0835)
SUP(ASZ3278).
++SRC(OMCSFX9).
++MOD(OMCSFX9).
download PTF: ASP0949 16k
/*####################################################################
DATE: 20030124 PTF: ASP0950 FMID: ASEB200 */
++PTF(ASP0950). /*---------------------------------------------------
ASP0950 030124 ASEB200 V210 stop S906 abends
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3247 011223 61vtel MC ASEB200 P778 ABS906 ASEDMSVS 020109 S__-PMD
CSV002I REQUESTS FOR MODULE ASEDMSVS EXCEED MAXIMUM USE / ABENDS906-08
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0778)
SUP(ASZ3247).
++MOD(OMCSECKM).
download PTF: ASP0950 24k
/*####################################################################
DATE: 20030321 PTF: ASP0952 FMID: ASEC200 */
++PTF(ASP0952). /*---------------------------------------------------
ASP0952 030321 ASEC250 V210 correct bundle reprint problem
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3287 030320 61VPCS MB ASEC250 V210 INCORROUT OMCSIRBR 030321 S__0952
Message OMCEC046I 03 OMCSIRBR LINE# 1404 LABEL NOT FOUND "" when
selecting a user in IRM bundle reprint (BR).
*/
++VER(Z038) FMID(ASEC200)
PRE(ASP0890)
SUP(ASZ3287).
++SRC(OMCSIRBR).
++MOD(OMCSIRBR).
download PTF: ASP0952 45k
/*####################################################################
DATE: 20030512 PTF: ASP0954 FMID: ASEB200 */
++PTF(ASP0954). /*---------------------------------------------------
ASP0954 030512 ASEB200 V210 Support restore protection in hours
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_OPERATIONAL NOTES
This PTF modifies the restore protection process. The technical
bulletin TB01-0001 "Protecting Restored Files in an OMCS Database from
Space Reclaim" has been updated to reflect the changes.
_APARLIST:
ASZ3228 010829 61VNAB LS ASEB200 P909 INCORROUT OMCSAMFP 010829 O__-PJS
OMCEC046I 01 OMCSAMFP LINE# 0254 &SS(...) INVALID DATE EXPRESSION
ECL error restoring a file with creation date 20000229.
ASZ3241 011031 61VSOA RD ASEB200 V201 LOOP OMCSAMFP 011102 O__-PJS
when inserting a missing jobdetl record and a record with matching
jobname & jobid but different sds number exists near insert point.
ASZ3289 030505 61VASE GG ASEB200 P909 SUGG OK OMCSAMFP 030512 O__-PJS
Allow restore protection (via JPR variable JPVAKRJR) to be specified in
hours.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0909)
REQ(ASZ3229)
SUP(ASP0930,ASZ3228,ASZ3241,ASZ3289).
++SRC(OMCSAMFP).
++MOD(OMCSAMFP).
download PTF: ASP0954 13k
/*####################################################################
DATE: 20030514 PTF: ASP0955 FMID: ASEB200 */
++PTF(ASP0955) /*------------------------------------------------------
ASP0955 030514 ASEB200 V210 Correct OMCSDBIM control card processing
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
APAR Fixes:
ASZ3292 030514 61VNAB PD ASEB200 P940 PERF OMCSDBIM 030514 S__0955
Incorrect control card processing causes OMCSDBIM to read to end of tape
after file is restored.
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3292)
PRE(ASP0940).
++MOD(OMCSDBIM).
download PTF: ASP0955 13k
/*####################################################################
DATE: 20030604 PTF: ASP0957 FMID: ASEB200 */
++PTF(ASP0957) /*--------------------------------------
ASP0957 030604 ASEB200 V210 OMCSJDSR ASZ3299
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
APAR Fixes:
ASZ3299 030602 61VACI TS ASEB200 V210 INCORROUT OMCSDBSR 040602 S__0957
Restored files with an expired protection period are not being deleted
by space reclaim until after midnight. The time part of the TOD clock
value in the directory entry is ignored.
Please contact ASE if you have any questions about this PTF.
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3299)
PRE(ASP0880).
++MOD(OMCSJDSR).
download PTF: ASP0957 4.5k
/*####################################################################
DATE: 20030711 PTF: ASP0959 FMID: ASEB200 */
++PTF(ASP0959). /*---------------------------------------------------
ASP0959 030711 ASEB200 V210 job viewing statistics
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0107,ASP0735,ASP0880).
++JCLIN.
//STEP1 EXEC PGM=IEWL,
// PARM='LIST,MAP,NCAL,REUS'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLMOD DD DSN=ASE.ASELIB,DISP=SHR
//AASELOAD DD DSN=ASE.AASELOAD,DISP=SHR
//SYSLIN DD *
INCLUDE AASELOAD(OMCSECLX,OMCSIDEN,OMCSJBUS)
ORDER OMCSECLX
ENTRY OMCSECLX
NAME OMCSJBUS(R)
++SRC(OMCSJBUS) DISTLIB(AASEECPS) SYSLIB(ASEECPS) DISTMOD(AASELOAD).
++SRC(OMCSTSSJ).
++MOD(OMCSJBUS) DISTLIB(AASELOAD) LEPARM(RENT,REUS).
++MOD(OMCSTSSJ).
++PNL(OMCHSJJS) DISTLIB(AASEPANL) SYSLIB(ASEPANL).
++PNL(OMCHSJSM).
++PNL(OMCSSJJS) DISTLIB(AASEPANL) SYSLIB(ASEPANL).
++PNL(OMCSSJSM).
++PNL(OMCSTSSJ).
++SAMP(RUNJBUS) DISTLIB(AASESAMP) SYSLIB(ASESAMP).
download PTF: ASP0959 71k
/*####################################################################
DATE: 20030811 PTF: ASP0965 FMID: ASEB200 */
++PTF(ASP0965). /*---------------------------------------------------
ASP0965 030811 ASEB200 V210 CICS abends S202 when user logs off/on quickly
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3311 030811 61VTEL DE ASEE200 V210 ABENDS202 OMCSPPCF 030918 S__0965
CICS abends202 (bad ECB addr in TCA) when user logs off/on quickly
ASZ3314 030811 61VASE PM ASEE200 V210 ABENDS202 OMCSPPCF 030918 S__0965
CICS abends202 (bad ECB addr in TCA) when RVF address space terminates
unexpectedly.
ASZ3315 030811 61VASE PM ASEE200 V210 INCORROUT OMCSPPCM 030918 S__0965
Correct CANCEL USER command in PPCF monitor
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0154)
SUP(ASZ3311,ASZ3314,ASZ3315).
++MOD(OMCSPPCF).
++MOD(OMCSPPCM).
++SRC(OMCSPPCM).
download PTF: ASP0965 18k
/*####################################################################
DATE: 20030812 PTF: ASP0962 FMID: ASEB200 */
++PTF(ASP0962). /*---------------------------------------------------
ASP0962 030812 ASEB200 V210 OMCSAMUT OMCSAMUS RAM file support
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3313 030805 1TXMAS TT ASEB200 V210 INCORROUT OMCSAMUS 030915 S__0962
RC=20 from OMCSAMUT when deleting a large number of record from AMF index.
Internal VIO work file has filled.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0800,ASP0947)
SUP(ASZ3313).
++SRC(OMCSAMUT).
++MOD(OMCSAMUT).
++MOD(OMCSAMUS).
download PTF: ASP0962 9k
/*####################################################################
DATE: 20030820 PTF: ASP0963 FMID: ASEC200 */
++PTF(ASP0963). /*---------------------------------------------------
ASP0963 030820 ASEC200 V210 correct validation on RVF primary panel
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3309 030818 61VACI TS ASEC200 V210 INCORROUT OMCSIRUV 030820 S__0963
various problems validating user input on RVF primary panel
*/
++VER(Z038) FMID(ASEC200)
PRE(ASP0882)
SUP(ASZ3309).
++SRC(OMCSIRUV).
++MOD(OMCSIRUV).
download PTF: ASP0963 41k
/*####################################################################
DATE: 20030820 PTF: ASP0964 FMID: ASEB200 */
++PTF(ASP0964). /*---------------------------------------------------
ASP0964 030820 ASEB200 V210 OMCSJBUS report shows the wrong userids
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3310 030818 61VTEL DT ASEB200 P959 INCORROUT OMCSJBUS 030820 S__0964
after user views a job, that userid not reported by job view stats pgm
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0959)
SUP(ASZ3310).
++SRC(OMCSJBUS).
++MOD(OMCSJBUS).
download PTF: ASP0964 8.6k
/*####################################################################
DATE: 20031015 PTF: ASP0971 FMID: ASEB200 */
++PTF(ASP0971) REWORK(2003288). /*------------------------------------
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3321 031013 61VASE PM ASEB200 V210 INCORROUT ASEDMSDM 031010 S__0969
Msg IKT00405I screen erasure caused by error recovery procedure after
LTXF password interception.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0648)
SUP(ASZ3321).
++MOD(ASEDMSDM).
download PTF: ASP0971 17k
/*####################################################################
DATE: 20031223 PTF: ASP0976 FMID: ASEC200 */
++PTF(ASP0976). /*---------------------------------------------------
ASP0976 031223 ASEC200 V210 OMCSRVCU to correctly handle empty REPTVIEW
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2003
_APARLIST:
ASZ3324 031223 61VTEL MC ASEC200 V210 INCORROUT OMCSRVCU 031223 S__0976
Backup files are not deleted when REPTVIEW /IRM is empty. OMCSRVCU
always ends with COND CODE 0000 even when there are errors.
*/
++VER(Z038) FMID(ASEC200)
PRE(ASP0704)
SUP(ASZ3324).
++SRC(OMCSRVCU).
++MOD(OMCSRVCU).
download PTF: ASP0976 9k
/*####################################################################
DATE: 20040115 PTF: ASP0978 FMID: ASEC200 */
++PTF(ASP0978). /*---------------------------------------------------
ASP0978 040115 ASEC200 V210 OMCSXWRP to stop producing bad RVF entries
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
_APARLIST:
ASZ3326 040108 61VCSC TS ASEC200 V210 INCORROUT OMCSXWRP 040115 S__0978
some RVF entries have garbage expiry dates and the leftmost eight
characters of the version string is missing.
*/
++VER(Z038) FMID(ASEC200)
PRE(ASP0944)
SUP(ASZ3326).
++SRC(OMCSXWRP).
++MOD(OMCSXWRP).
download PTF: ASP0978 65k
/*####################################################################
DATE: 20040130 PTF: ASP0980 FMID: ASEB200 */
++PTF(ASP0980) /*------------------------------------------------------
ASP0980 040130 ASEB200 V210 ASEDAMRM Correct DBSKIP past end of segmente
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
APAR Fixes:
ASZ3329 040130 61VASE PM ASEB200 P911 INCORROUT ASEDAMRM 040130 S__0980
DBSKIP does not position file to last record of a segmented file when
the skip count is slightly larger than the number of records in the file
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3329)
PRE(ASP0911).
++MOD(ASEDAMRM).
download PTF: ASP0980 8.3k
/*####################################################################
DATE: 20040216 PTF: ASP0982 FMID: ASEC200 */
++PTF(ASP0982). /*---------------------------------------------------
ASP0982 040216 ASEC200 V210 Selective Bundle Reprint Updates
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
_APARLIST:
ASZ3302 030709 61VADP MB ASEC250 V210 INCORROUT OMCSIRSR 030722 S__0958
Selective bundle reprint fails - "ECL00168E 01 OMCSIRSR LINE# 0398
RESULT BUFFER OVERFLOW" when reprinting from reports with >10,922 pages.
ASZ3328 040130 61VADP MB ASEC200 P958 INCORROUT OMCSIRSR 040216 S__0982
Selective bundle print doesn't print the last page of a selection after
ASP0958.
*/
++VER(Z038) FMID(ASEC200)
PRE(ASP0847)
SUP(ASP0958,ASZ3302,ASZ3328).
++SRC(OMCSIRSR).
++MOD(OMCSIRSR).
download PTF: ASP0982 49k
/*####################################################################
DATE: 20040309 PTF: ASP0983 FMID: ASEB200 */
++PTF(ASP0983). /*---------------------------------------------------
ASP0983 040309 ASEB200 V210 correctly select jobs when LINES >=100K
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
_APARLIST:
ASZ3340 040307 1TXMAS MC OMCSV2 V210 INCORROUT OMCSTSSJ 040309 S__0983
When lines ===> >=100K specified, no jobs are selected.
_OPERATIONAL NOTE:
The following restriction applies when selecting jobs based on their
LINES value.
All LINES values fall into one of two ranges:
- from 1 to 99,999
- 100,000 and above
When the user enters a LINES value on the job selection criteria panel,
the selection process only operates within the line range to which the
value belongs.
If the line count specified is less than 100000, then jobs with line
counts greater than 99999 will NOT appear on the job selection list.
If the line count specified is 100000 or more, then jobs with line
counts >99999 will appear on the job selection list, BUT, jobs with line
counts <100000 will not.
Note that a 'K' suffix may be used to abbreviate the line count value
eg. 10000 and 10K are equivalent. Whichever form is used has no impact
on the behaviour described above.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0959)
SUP(ASZ3340).
++SRC(OMCSTSSJ).
++MOD(OMCSTSSJ).
download PTF: ASP0983 61k
/*####################################################################
DATE: 20040420 PTF: ASP0984 FMID: ASEB200 */
++PTF(ASP0984) /* ---------------------------------------------
ASP0984 040420 OMCSV2 V201 PM OMCSXWSD Prevent IEC130I msg for missing
ISFIN dd statement
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
APAR Fixes:
ASZ3226 010806 61VASE PM ASEB200 V210 SUGG OK OMCSXWSD 040420 S__0984
MSG IEC130I for ISFIN DD statement should be avoided
ASZ3137 000216 61VNMC AP OMCSV2 V201 INCORROUT OMCSXWSD
Writer issues msg OMCSD005E UNKNOWN DATASET NAME FORMAT when processing
each dataset of a JES3 sysout.
This PTF adds the following message:
OMCSD006I ISFIN DD STMT NOT FOUND - OMCSXWSD DISABLED
This message indicates that the OMCSXWSD module has been disabled
because no ISFIN dd statement was found in the writer JCL. This message
is expected to be issued and can be ignored.
*/.
++VER(Z038) FMID(ASEB200) PRE(ASP0798) SUP(ASP0896,ASZ3137,ASZ3226).
++MOD(OMCSXWSD) DISTLIB(AASELOAD).
download PTF: ASP0984 2.6k
/*####################################################################
DATE: 20040423 PTF: ASP0985 FMID: ASEB200 */
++PTF(ASP0985) /*------------------------------------------------------
ASP0985 040423 OMCSV2 V201 Increase max block number for RAM database
files
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
APAR Fixes:
ASZ3327 040126 61VNAB DD ASEB200 P940 ABS0C4 OMCSDBVR 040126 S__0979
Abend S0C4 at offset x'6760' after getmain fails. Database has a large
number of secondary databases and region size is too small.
ASZ3312 030824 61VTEL JP ASEB200 V210 ABS0c4 OMCSDBEX 030824 S__0979
Abend S0C4 when backup tape has more than 5 volumes.
ASZ3347 040423 61VODP TI OMCSV2 V210 MSGDAIOXX ASEDAMGR 040426 S__0985
Msg DAIOXXW FILE OMCSDBEX WORKFILE NEARLY FULL when running a database
backup.
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3327,ASZ3312,ASZ3347,ASP0979)
PRE(ASP0940,ASP0905,ASP0955).
++MOD(OMCSDBIM).
++MOD(OMCSDBEX).
++MOD(OMCSDBVR).
download PTF: ASP0985 41k
/*####################################################################
DATE: 20040719 PTF: ASP0990 FMID: ASEC200 */
++PTF(ASP0990). /*---------------------------------------------------
ASP0990 040719 ASEC200 V210 remove report links when generic user deleted
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
_APARLIST:
ASZ3350 040715 61VTEL MC ASEC200 V210 INCORROUT OMCSIRUM 040719 S__0990
When generic user is deleted, report links are not also removed. An L
line command on a report shows "**DELETED" and OMCSIRSC reports errors.
*/
++VER(Z038) FMID(ASEC200)
PRE(ASP0885,ASP0890)
SUP(ASZ3350).
++SRC(OMCSIRRP).
++SRC(OMCSIRUM).
++MOD(OMCSIRRP).
++MOD(OMCSIRUM).
download PTF: ASP0990 58k
/*####################################################################
DATE: 20040721 PTF: ASP0991 FMID: ASEC200 */
++PTF(ASP0991). /*---------------------------------------------------
ASP0991 040721 ASEC200 ensure bundle banner corner stamps are correct
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
_APARLIST:
ASZ3351 040721 61VODP TI ASEC200 V210 INCORROUT OMCSIRBT 040722 S__0991
when a bundle is printed at banner level 2, the corner stamps at the
bottom of banner pages do not include the top level node name.
*/
++VER(Z038) FMID(ASEC200)
PRE(ASP0890)
SUP(ASZ3351).
++SRC(OMCSIRBT).
++MOD(OMCSIRBT).
download PTF: ASP0991 42k
/*####################################################################
DATE: 20040723 PTF: ASP0992 FMID: ASEB200 */
++PTF(ASP0992). /*---------------------------------------------------
ASP0992 040723 ASEB200 V210 JPR fails when not auth for .JOBRULE MASTER
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
_APARLIST:
ASZ3349 040714 1TXMAS MC ASEB200 V210 OMCSJR002I OMCSMJPR 040716 S__0989
Msg OMCSJR002I NOT AUTHORISED TO OPEN .JOBRULE MASTER followed by msg
OMCEC046I 02 OMCSMJPR LINE# 0080 NON-DECIMAL RETURN CODE
ASZ3352 040722 1TXMAS MC ASEC200 P989 INCORROUT OMCSMJPR 040723 S__0992
after PTF ASP0989, JPR fails with ECL error when .JOBRULE MASTER file
does not exist yet.
*/
++VER(Z038) FMID(ASEB200)
PRE(ASP0306,ASP0344)
SUP(ASP0989,ASZ3349,ASZ3352).
++SRC(OMCSMJPR).
++SRC(OMCSMPV).
++MOD(OMCSMJPR).
++MOD(OMCSMPV).
download PTF: ASP0992 40k
/*####################################################################
DATE: 20040730 PTF: ASP0994 FMID: ASEB200 */
++PTF(ASP0994) /*------------------------------------------------------
ASP0994 040730 ASEB200 V210 correctly issue OMCSDBUT message OMC145I
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
APAR Fixes:
ASZ3293 030515 51VACI TS ASEB200 V210 INCORROUT OMCSDBUT 030519 S__-PJS
MSGOMC145I is being written when it should not be.
DOC Manual OM88-1021 example is incorrect, 1st line s/b "MAXCC 0"
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3293)
PRE(ASP0757).
++MOD(OMCSDBUT).
download PTF: ASP0994 15k
/*####################################################################
DATE: 20040730 PTF: ASP0995 FMID: ASEB200 */
++PTF(ASP0995) /*------------------------------------------------------
ASP0995 040730 ASEB200 V210 accomodate z/OS 1.4 JES2 changes (OW57577)
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
APAR Fixes:
ASZ3296 030521 61VNAB JB ASEB200 V210 MSGOMC087I OMCSXWPS 030523 C__-PMD
Msg OMC087I SPOOL I/O ERROR is produced on z/OS V1R4 systems due to
changes to JES2 as described in IBM apar OW57577.
ASZ3300 030610 61VNAB JB ASEB200 V210 MSGOMC087I OMCSXWPS 030523 C__-PMD
Msg OMC087I SPOOL I/O ERROR (IBM apar OW57577) may occur after any GET
operation not just first.
ASZ3301 030623 61VNAB JB ASEB200 V210 MSGOMC087I OMCSXWPS 030623 C__-PMD
Increase number of retries to 200 after Msg OMC087I SPOOL I/O ERROR
is produced.
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3296,ASZ3300,ASZ3301)
PRE(ASP0897).
++MOD(OMCSXWPS).
download PTF: ASP0995 7.7k
/*####################################################################
DATE: 20040730 PTF: ASP0996 FMID: ASEB200 */
++PTF(ASP0996) /*------------------------------------------------------
ASP0996 040730 ASEB200 V210 jobs captured after 2004/01/01 not visible
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
APAR Fixes:
ASZ3325 040101 61VNAB MA ASEB200 P897 INCORROUT OMCSXWUF 040101 o__-PMD
jobs captured after midnight 31 dec 03 are not visible in job select
***** This problem has SEV1 status with ASE support *****
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3325)
PRE(ASP0897).
++MOD(OMCSXWUF).
download PTF: ASP0996 14k
/*####################################################################
DATE: 20040806 APAR ASZ3354 FMID: ASEB200 */
++APAR(ASZ3354). /* ----------------------------------------------------
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004.
ASZ3354 040806 61VNAB LS ASEB200 P107 ABS522 OMCSDBSR 040816 S__-PMD
ERAS BUSY=NOWAIT gets MSG DAIO45I WAITING FOR ACCESS TO OMCS DATABASE FILE
_PROBLEM DESCRIPTION:
Space Reclaim job hangs waiting for access to a database file that is use
by a TSO user. MSG:
DAIO45I WAITING FOR ACCESS TO OMCS DATABASE FILE
is issued.
_PROBLEM SUMMARY:
USERS AFFECTED: All users with OMCS Version 2.10
The BUSY=WAIT flag has not been reset by the $DAMGR ERAS macro. If the
database file that OMCSDBSR wishes to delete is in use then the space
reclaim job will wait for the file to become available.
_PROBLEM CONCLUSION
RECOMMENDATION: Apply APAR fix ASZ3354.
The BUSY=WAIT flag will be reset prior to issuing the $DAMGR ERAS macro.
The space reclaim job will not wait for the file to become available.
NEED FURTHER HELP? CALL ASE FOR ASSISTANCE.
*/
++VER(Z038) FMID(ASEB200) PRE(ASP0757).
++ZAP(OMCSDBSR).
NAME OMCSDBSR
IDRDATA ASZ3354
VER 2536 41E1000C
REP 2536 947F102D
*LMOD OMCSDBSR
/*####################################################################
DATE: 20040810 PTF: ASP0997 FMID: ASEB200 */
++PTF(ASP0997) /*------------------------------------------------------
ASP0997 040810 ASEB200 V210 rc=4 when omcsamfp not auth for directory
COPYRIGHT AUSTRALIAN SYSTEMS ENGINEERING PTY. LTD. 2004
APAR Fixes:
ASZ3353 040806 1TXMAS MC ASEB200 V210 SUGG OK OMCSAMFP 040811 S__0997
When unable to open DIRECTRY SYSFILE, program should return COND CODE 04
*/.
++VER(Z038) FMID(ASEB200) SUP(ASZ3353)
PRE(ASP0954).
++SRC(OMCSAMFP).
++MOD(OMCSAMFP).
download PTF: ASP0997 13k/*#################################################################### DATE: 20080528 END BUCKET PRODUCT: */