ca.portal.admin

IDMS V12.0 & Z/OS 1.4

Discussion created by ca.portal.admin on Mar 24, 2005
Latest reply on Mar 24, 2005 by ca.portal.admin
Importance: High


We have a customer using (we believe) IDMS V12.0 + fixes for Y2K !

We need to upgrade the O/S to Z/OS 1.4 via OS/390 2.10 (from 2.6) .

Customer does not wish to upgrade IDMS . Is there anyone out there
successfully running anything like this under Z/OS ?

Thanks ,
Richard Hearnden
Senior Systems Programmer
CSC UK . Tunbridge Wells .

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
QUIKJOB replacement for PMSMFEX (v 15.0)
"Hello all,
due to the way Culprit works - PMSMFEX is very slow (i have re-written it
to save approx 10% time, i will be submitting that one to IDMS-L and a DAR
to CA to see if they have interest in my version) - but because QUIKJOB
does not have the extra pass as does Culprit, it can process data alot
faster - here is the source I have been using for the last 2+ years (and
recently updated to reflect 15.0 changes to PMSMFEX). this works for me, I
cannot promise it will work for you.
this version does not select by CV# nor system # - that can be easily
added though .. it does not check for IDMS version#, but passes along
whatever it finds, rather than hardcoding a value in the output record ...


mr/ms IUA person, please submit this to the UCL



OPTION LIST=NO,ZEROPRT=YES
***********************************************************************
* *
* INF 001-028 CONTAINS THE FIRST 28 BYTES OF THE SMF RECORD, *
* *
***********************************************************************
EQU SMF-HDRDATA INF001-028 /* ENTIRE SMF HDR
EQU SMF-RDW INF001-004 /* LENGTH OF SMF RECORD
EQU SMF-LL INF001-002-B /* USABLE PORTION
EQU SMF-BB INF003-004 /* SPANNED INDICATOR
EQU SMF-RECTYPE INF0006-B /* SMF RECORD TYPE
EQU SMFH#REC INF019-020-B /* # OF PM RECS IN THIS SMF REC
EQU SMFHPMID INF021-B /* PM COMPONENT TYPE
EQU SMFHCV# INF022-B /* CVNUMBER
EQU SMFHDCV# INF023-024 /* DCSYSTEM NUMBER
EQU SMFHVER INF025-028 /* IDMS RELEASE
***********************************************************************
* *
* BYTES 1-256 OF THE CURRENTY-POINTED-TO PM RECORD ARE DEFINED *
* HERE - WE ONLY DEFINE THE BYTES WE NEED ACCESS TO *
* *
***********************************************************************
EQU PM-RECORD PTR1-248 /* CURRENTLY POINTED TO PM REC
EQU PMHDR-PMHLEN PTR1-2-B /* LENGTH OF PM REC
EQU PMHDR-PMHRTYPE PTR3 /* PM RECORD TYPE
EQU PMHDR-EDAT PTR021-024 /* DATE
EQU PMHDR-ETIM PTR025-028 /* TIME
***********************************************************************
* *
* THE CURRENTLY-BEING-BUILT OUTPUT RECORD IS BUILT IN OFA1-280 *
* *
***********************************************************************
EQU O-PMREC OFA001-280 /* CURRENTLY BEING BUILD O/P
EQU O-PMREC-RDW OFA001-002-B /* LENGTH OF O/P RECORD
EQU O-PMHDR-EDAT OFA005-012 /* DATE
EQU O-DCSYSTEM-LIT OFA013-020
EQU O-6-LIT OFA021
EQU O-S-LIT OFA022
EQU O-LGRLEN OFA023-024-B /* LOG REC LENGTH FIELD
EQU O-SUBTYPE OFA025-B /* PM RECORD TYPE
EQU O-PMID OFA026-B
EQU O-PMDCV# OFA027-028 /* CV #
EQU O-PMVER# OFA029-032 /* IDMS RELEASE
EQU O-PMDATA OFA033-280 /* PM DATA PORTION OF O/P
***********************************************************************
* *
* WST CONTAINS TEMPORARY STORAGE FIELDS *
* *
***********************************************************************
EQU #-BYTES-MOVED WST001-002-B LOVALUE
EQU #-RECS-DONE WST005-006-B LOVALUE
EQU #-SMFRECS-READ WST009-012-B LOVALUE
EQU SMF-PM-DATALEN WST013-014-B LOVALUE
EQU SMF-HDRLEN WST017-020-B X'0000001C'
EQU MAX-PM-RECLEN WST021-022-B X'00FE'
EQU #-PMIM-RECS WST025-028-B LOVALUE
EQU #-PMAM-RECS WST029-032-B LOVALUE
EQU LGRLEN WST033-036-B LOVALUE
EQU #-PMRECS-OUT WST037-040-B LOVALUE
EQU #-SMFRECS-DONE WST041-044-B LOVALUE
EQU PMREC-RDW WST045-048-B LOVALUE
EQU IDMS-SMFRECTYP WST049-B X'FE'
***********************************************************************
* *
* GET THE FIRST/NEXT SMF RECORD *
* *
***********************************************************************
001 GET INF ATEND 500
IF SMF-RECTYPE NOT EQ IDMS-SMFRECTYP
GOTO 001.
SET PTR INF029
***********************************************************************
* *
* VALIDATE THE SMF HDR INFORMATION *
* *
***********************************************************************
ADD C'1' TO #-SMFRECS-READ
IF SMF-BB NOT EQ X'0000' /* IF WE FORGOT TO TELL MVS
GOTO 901. /* ITS A SPANNED REC ...
MOVE LOVALUE TO #-BYTES-MOVED
MOVE LOVALUE TO #-RECS-DONE
MOVE SMF-LL TO SMF-PM-DATALEN /* SUBTRACT HDR LENGTH FROM
SUB SMF-HDRLEN FROM SMF-PM-DATALEN /* REC LEN TO GET DATA LEN
IF SMF-PM-DATALEN NOT GT X'0000' /* IF NO DATA ...
GOTO 902.
IF SMFH#REC NOT GT ZERO /* IF NO PM COUNT ...
GOTO 903.
***********************************************************************
* *
* VALIDATE THE CURRENTLY-POINTED-TO PM INPUT RECORD *
* *
***********************************************************************
010 IF PMHDR-PMHLEN GT MAX-PM-RECLEN /* IF PM REC TOO LONG
GOTO 904. /* ERROR 904
ADD PMHDR-PMHLEN TO #-BYTES-MOVED /* INCR BYTES MOVED
IF #-BYTES-MOVED GT SMF-PM-DATALEN /* MOVED MORE THAN TOT PM DATA
GOTO 905. /* ERROR 905
IF SMFHPMID EQ X'01' /* PROCESS INTERVAL MON RECS
GOTO 100.
IF SMFHPMID EQ X'02' /* PROCESS APPLICATION MON RECS
GOTO 200.
GOTO 906. /* IF NEITHER, ERROR 906
***********************************************************************
* *
* PROCESS PM INTERVAL RECORDS *
* *
***********************************************************************
100 IF PMHDR-PMHRTYPE LT X'01' /* IF AN INVALID RECORD TYPE
GOTO 907.
IF PMHDR-PMHRTYPE GT X'0C'
GOTO 907. /* ERROR 907
ADD C'1' TO #-PMIM-RECS /* INCR THE # OF PMIM RECS
MOVE PMHDR-PMHLEN TO LGRLEN /* ADD 8 TO I/P PM REC LEN
ADD C'08' TO LGRLEN /* GIVING LOG REC LENGTH
MOVE LGRLEN TO PMREC-RDW /* ADD 24 TO LOG REC LENGTH
ADD C'24' TO PMREC-RDW /* GIVING O/P PM REC LEN
GOTO 300. /* BRANCH TO PRINT ROUTINE
***********************************************************************
* *
* PROCESS PM APPLICATION RECORDS *
* *
***********************************************************************
200 IF PMHDR-PMHRTYPE GT X'12' /* IF AN INVALID RECORD TYPE
GOTO 910. /* ERROR 910
ADD C'1' TO #-PMAM-RECS /* INCR THE # OF PMAM RECS
MOVE C'256' TO LGRLEN /* WE CAN HARDCODE THE LOG REC
MOVE C'280' TO PMREC-RDW /* LEN AND O/P PM REC LEN
GOTO 300. /* BRANCH TO PRINT ROUTINE
***********************************************************************
* *
* BUILD THE OUTPUT RECORD *
* *
***********************************************************************
300 MOVE LOVALUE TO O-PMREC /* CLEAN OUT THE O/P AREA
MOVE PMREC-RDW TO O-PMREC-RDW /* MOVE FIELDS TO O/P AREA
CALL SQLDTCV3 PMHDR-EDAT O-PMHDR-EDAT
MOVE C'DCSYSTEM' TO O-DCSYSTEM-LIT
MOVE C'6' TO O-6-LIT
MOVE C'S' TO O-S-LIT
MOVE LGRLEN TO O-LGRLEN
MOVE X'E8' TO O-SUBTYPE
SUB SMFHPMID FROM O-SUBTYPE
MOVE SMFHPMID TO O-PMID
MOVE SMFHDCV# TO O-PMDCV#
MOVE SMFHVER TO O-PMVER#
MOVE PM-RECORD TO O-PMDATA PMHDR-PMHLEN
WRITE OFA
***********************************************************************
* *
* INCREMENT COUNTS, AND, IF WE HAVE MORE WORK FOR THIS SMF I/P REC, *
* BUMP UP THE POINTER BY THE LENGTH OF THE JUST-COMPLETED PM-REC *
* *
***********************************************************************
ADD C'1' TO #-PMRECS-OUT /* INCREMENT COUNTERS
ADD C'1' TO #-RECS-DONE
IF #-RECS-DONE LT SMFH#REC /* IF MORE ON THIS SMF REC
SET PTR UP PMHDR-PMHLEN /* MOVE POINTER TO NEXT PM REC
GOTO 010. /* PROCESS NEXT PM REC
ADD C'1' TO #-SMFRECS-DONE /* INCREMENT COUNTERS
GOTO 001. /* GET NEXT SMF RECORD
***********************************************************************
* *
* PRINT ALL THE END OF FILE REPORING STUFF *
* *
***********************************************************************
500 PERFORM 921 THRU 922
SET PCC SINGLESPACE
PERFORM 923 THRU 924
MOVE C' SMF INPUT PROCESSING' TO PRT01-32
MOVE C' STATISTICS ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
SET PCC DOUBLESPACE
MOVE #-SMFRECS-READ TO PRT10-19 0
MOVE C'SMF RECORDS READ ' TO PRT21
PRINT
SET PCC SINGLESPACE
MOVE #-SMFRECS-DONE TO PRT10-19 0
MOVE C'SMF RECORDS PROCESSED ' TO PRT21
PRINT
PERFORM 923 THRU 924
PERFORM 923 THRU 924
MOVE C' CA-IDMS/PM OUTPUT PR' TO PRT01-32
MOVE C'OCESSING STATISTICS ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
MOVE #-PMAM-RECS TO #-PMRECS-OUT
ADD #-PMIM-RECS TO #-PMRECS-OUT
SET PCC DOUBLESPACE
MOVE #-PMRECS-OUT TO PRT10-19 0
MOVE C'PERFORMANCE MONITOR RECORDS WRITTEN' TO PRT21
PRINT
SET PCC SINGLESPACE
MOVE #-PMAM-RECS TO PRT10-19 0
MOVE C'APPLICATION MONITOR RECORDS ' TO PRT21
PRINT
SET PCC SINGLESPACE
MOVE #-PMIM-RECS TO PRT10-19 0
MOVE C'INTERVAL MONITOR RECORDS ' TO PRT21
PRINT
PERFORM 923 THRU 924
GOTO EOJ.
***********************************************************************
* *
* PRINT ANY ERROR MSGS THAT NEED TO BE PRINTED *
* *
***********************************************************************
901 PERFORM 921 THRU 922
PERFORM 923 THRU 924
MOVE C' PMAEX901 (FATAL) PROCESSING' TO PRT01-32
MOVE C' OF VARAIBLE BLOCKED SPANNED ' TO PRT33-64
PRINT
MOVE C' (VBS) SMF ' TO PRT01-32
MOVE C'FILE REQUIRES DCB=BFTEK-A ON ' TO PRT33-64
PRINT
MOVE C' SYS010 DD ' TO PRT01-32
MOVE C'STATEMENT ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
PERFORM 925 THRU 926
PERFORM 923 THRU 924
GOTO EOJ.
902 PERFORM 921 THRU 922
PERFORM 923 THRU 924
MOVE C' PMAEX902 (FATAL) SMF RECORD' TO PRT01-32
MOVE C' TYPE 254 ENCOUNTERED WITH ' TO PRT33-64
PRINT
MOVE C' ZERO BYTES' TO PRT01-32
MOVE C' OF PERFORMANCE MONITOR DATA. ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
PERFORM 925 THRU 926
PERFORM 927 THRU 928
PERFORM 923 THRU 924
ABEND 0902
903 PERFORM 921 THRU 922
PERFORM 923 THRU 924
MOVE C' PMAEX903 (FATAL) SMF RECORD' TO PRT01-32
MOVE C' TYPE 254 ENCOUNTERED WITH ' TO PRT33-64
PRINT
MOVE C' CONTAINS Z' TO PRT01-32
MOVE C'FILE REQUIRES DCB=BFTEK-A ON ' TO PRT33-64
PRINT
MOVE C' RECORDS ' TO PRT01-32
MOVE C'(SMFH#REC EQ 0) ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
PERFORM 925 THRU 926
PERFORM 927 THRU 928
PERFORM 923 THRU 924
ABEND 0903
904 PERFORM 921 THRU 922
PERFORM 923 THRU 924
MOVE C' PMAEX904 (FATAL) PERFORMANC' TO PRT01-32
MOVE C'E MONITOR RECORD ENCOUNTERED ' TO PRT33-64
PRINT
MOVE C' WITH A REC' TO PRT01-32
MOVE C'ORD LENGTH GREATER THAN ' TO PRT33-64
PRINT
MOVE C' THE MAXIMU' TO PRT01-32
MOVE C'M. ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
PERFORM 925 THRU 926
PERFORM 927 THRU 928
PERFORM 923 THRU 924
ABEND 0904
905 PERFORM 921 THRU 922
PERFORM 923 THRU 924
MOVE C' PMAEX905 (FATAL) PERFORMANC' TO PRT01-32
MOVE C'E MONITOR RECORD ENCOUNTERED ' TO PRT33-64
PRINT
MOVE C' EXTENDING ' TO PRT01-32
MOVE C'PAST END OF VALID DATA. ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
PERFORM 925 THRU 926
PERFORM 927 THRU 928
PERFORM 923 THRU 924
ABEND 0905
906 PERFORM 921 THRU 922
PERFORM 923 THRU 924
MOVE C' PMAEX906 (FATAL) PERFORMANC' TO PRT01-32
MOVE C'E MONITOR RECORD ENCOUNTERED ' TO PRT33-64
PRINT
MOVE C' WITH INVAL' TO PRT01-32
MOVE C'ID DATA TYPE. ' TO PRT33-64
PRINT
MOVE C' (SMFHPMID ' TO PRT01-32
MOVE C'INVALID) ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
PERFORM 925 THRU 926
PERFORM 927 THRU 928
PERFORM 923 THRU 924
ABEND 0906
907 PERFORM 921 THRU 922
PERFORM 923 THRU 924
MOVE C' PMAEX907 (FATAL) INTERVAL M' TO PRT01-32
MOVE C'ONITOR RECORD ENCOUNTERED ' TO PRT33-64
PRINT
MOVE C' WITH INVAL' TO PRT01-32
MOVE C'ID RECORD TYPE. ' TO PRT33-64
PRINT
MOVE C' (PMHRTYPE ' TO PRT01-32
MOVE C'LT1 OR GT 12) ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
PERFORM 925 THRU 926
PERFORM 927 THRU 928
PERFORM 923 THRU 924
ABEND 0907
908 PERFORM 921 THRU 922
PERFORM 923 THRU 924
MOVE C' PMAEX908 (FATAL) INTERVAL M' TO PRT01-32
MOVE C'ONITOR RECORD ENCOUNTERED ' TO PRT33-64
PRINT
MOVE C' WITH ERROR' TO PRT01-32
MOVE C'. ' TO PRT33-64
PRINT
MOVE C' (NOT CURRE' TO PRT01-32
MOVE C'NTLY USED) ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
PERFORM 925 THRU 926
PERFORM 927 THRU 928
PERFORM 923 THRU 924
ABEND 0908
909 PERFORM 921 THRU 922
PERFORM 923 THRU 924
MOVE C' PMAEX909 (FATAL) INTERVAL M' TO PRT01-32
MOVE C'ONITOR RECORD ENCOUNTERED ' TO PRT33-64
PRINT
MOVE C' WITH ERROR' TO PRT01-32
MOVE C'. ' TO PRT33-64
PRINT
MOVE C' (NOT CURRE' TO PRT01-32
MOVE C'NTLY USED) ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
PERFORM 925 THRU 926
PERFORM 927 THRU 928
PERFORM 923 THRU 924
ABEND 0909
910 PERFORM 921 THRU 922
PERFORM 923 THRU 924
MOVE C' PMAEX910 (FATAL) APPLICATIO' TO PRT01-32
MOVE C'N MONITOR RECORD ENCOUNTERED ' TO PRT33-64
PRINT
MOVE C' WITH INVAL' TO PRT01-32
MOVE C'ID RECORD TYPE. ' TO PRT33-64
PRINT
MOVE C' (PMHRTYPE ' TO PRT01-32
MOVE C'GT 18) ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
PERFORM 925 THRU 926
PERFORM 927 THRU 928
PERFORM 923 THRU 924
ABEND 0910
911 PERFORM 921 THRU 922
PERFORM 923 THRU 924
MOVE C' PMAEX911 (FATAL) APPLICATIO' TO PRT01-32
MOVE C'N MONITOR RECORD ENCOUNTERED ' TO PRT33-64
PRINT
MOVE C' WITH ERROR' TO PRT01-32
MOVE C'. ' TO PRT33-64
PRINT
MOVE C' (NOT CURRE' TO PRT01-32
MOVE C'NTLY USED) ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
PERFORM 925 THRU 926
PERFORM 927 THRU 928
PERFORM 923 THRU 924
ABEND 0911
912 PERFORM 921 THRU 922
PERFORM 923 THRU 924
MOVE C' PMAEX912 (FATAL) APPLICATIO' TO PRT01-32
MOVE C'N MONITOR RECORD ENCOUNTERED ' TO PRT33-64
PRINT
MOVE C' WITH ERROR' TO PRT01-32
MOVE C'. ' TO PRT33-64
PRINT
MOVE C' (NOT CURRE' TO PRT01-32
MOVE C'NTLY USED) ' TO PRT33-64
PRINT
PERFORM 923 THRU 924
PERFORM 925 THRU 926
PERFORM 927 THRU 928
PERFORM 923 THRU 924
ABEND 0912
921 MOVE C' CA-IDMS PERFORMANCE MO' TO PRT01-32
MOVE C'NITOR REL 15.0 CAGJF0 ' TO PRT33-64
PRINT
922 EXIT
923 MOVE C' ---------------------------' TO PRT01-32
MOVE C'----------------------------- ' TO PRT33-64
PRINT
924 EXIT
925 MOVE C' PMAEX990 BUFFER DUM' TO PRT01-32
MOVE C'P FORCED ' TO PRT33-64
PRINT
926 EXIT
927 MOVE C' PMAEX991 PROCESSING' TO PRT01-32
MOVE C' TERMINATED ' TO PRT33-64
PRINT
928 EXIT
END


The information transmitted is intended only for the person or entity to which it is addressed and may contain CONFIDENTIAL material. If you receive this material/information in error, please contact the sender and delete or destroy the material/information.

"
IDMS Public Discussion Forum
IDMS-L@LISTSERV.IUASSN.COM
SMTP
IDMS-L@LISTSERV.IUASSN.COM
IDMS-L@LISTSERV.IUASSN.COM
SMTP








Normal

Normal
Re: IDMS V12.0 & Z/OS 1.4
" I had a client which was also going to Z/OS and was on IDMS 12 last year.
Although they migrated off IDMS a week before the production implementation
of Z/OS, there was testing done with IDMS 12 under Z/OS. There were no
problems that I can remember.
I actually can't recall any operating system upgrade which upset IDMS. In
fact, I am going to be testing my old 10.2 system under Z/OS 1.5 in the next
day or two on our test LPAR. I don't intend to ever have to use 10.2 again,
but I still keep it around. And I'll bet it runs just fine.

Joe Lupico
IDMS System Support
""Our World is a Happy World""

Outcomes