ca.portal.admin

Question about ROLLFWD and EXTRACT JOURNAL

Discussion created by ca.portal.admin on Mar 2, 2005
I'm attempting to do a ROLLFWD against a copy of one of our production
segments (CASPDATA). Thankfully, this is not due to any sort of a disaster,
just an exercise to create a copy of our database at a point in time when
nobody had the foresight to take a backup. The journal offloads containing
the changes to be processed have been concatenated, in the order in which
they were created, into a single file on tape. Here's the JCL I'm using:

//PMBCFEXJ JOB 12602,'M.CHAMPAGNE',MSGCLASS=X,REGION=0M,CLASS=C,
// NOTIFY=&SYSUID
//*
//* BCF EXTRACT JOURNAL AS FOLLOWED BY ROLLFORWARD
//* ----> DATABASE MUST NOT BE ONLINE TO A CV WHEN THIS RUNS
//*
// JCLLIB ORDER=PM.COMMON.PROCLIB
// INCLUDE MEMBER=ENVRTEST
// INCLUDE MEMBER=&JOBLIB
//*
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE PM0944.EXTRACT.JOURNAL.SYS002
SET MAXCC=0
/*
//*
//EXTRACT EXEC PGM=IDMSBCF,COND=(0,LT)
// INCLUDE MEMBER=&LOCLPROC
//SYSLST DD SYSOUT=*
//SYSPCH DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SYSIDMS DD DISP=SHR,DSN=PM.COMMON.CNTRLIB(CASDMCL&M1)
//* JOURNAL INPUT
//SYS001 DD DSN=PM.IDMS.JOURNAL.CUM.ARCHIVE(-3),DISP=OLD
//SYS002 DD DSN=PM0944.EXTRACT.JOURNAL.SYS002,
// UNIT=PMBIGDA,DISP=(NEW,CATLG,DELETE),
// DCB=(BLKSIZE=8000,RECFM=VB),
// SPACE=(TRK,(5000,5000),RLSE)
//SYSIPT DD *
CONNECT TO SYSTEM;
EXTRACT JOURNAL FOR SEGMENT CASPDATA
COMPLETED
STOP AT '2005-02-27-00.22.05'
;
/*
//*
//ROLLFWD EXEC PGM=IDMSBCF,COND=(0,LT)
// INCLUDE MEMBER=&LOCLPROC
//SYSLST DD SYSOUT=*
//SYSPCH DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SYSIDMS DD DISP=SHR,DSN=PM.COMMON.CNTRLIB(CASDMCL&M1)
//* EXTRACTED JOURNAL INPUT
//SYS001 DD DSN=PM0944.EXTRACT.JOURNAL.SYS002,DISP=OLD
//SYSIPT DD *
CONNECT TO SYSTEM;
ROLLFORWARD SEGMENT CASPDATA
COMPLETED SORTED VERIFY
STOP AT '2005-02-27-00.22.04'
;
/*
//*
//

The procedure name to which &LOCLPROC expands to contains all the DDs for
ALL system and application areas involved and no SYSCTL card, and the
database files in question are not online to any CV at the time this job
runs.

Now, the EXTRACT appears to be working fine, reporting that it has selected
records for areas I would expect to have been updated in the period in
question, writing an output file, and ending with a zero return code. The
ROLLFORWARD, on the other hand, ends abruptly with the following (JESMSGLG
output):

+PMBCFEXJ,ROLLFWD ,0369,D,SYS001  ,GET
,WRNG.LEN.RECORD,00000085000C00,QSAM


IEC020I 001-4,PMBCFEXJ,ROLLFWD,SYS001,0369,PM0058,

IEC020I PM0944.EXTRACT.JOURNAL.SYS002

IEC020I DCB EROPT=ABE OR AN INVALID CODE, AND/OR NO SYNAD EXIT SPECIFIED

+WER999A PMBCFEXJ,        ,ROLLFWD -  UNSUCCESSFUL SORT 001 S
REASON=00000004
IEA995I SYMPTOM DUMP OUTPUT

SYSTEM COMPLETION CODE=001 REASON CODE=00000004
TIME=06.18.00 SEQ=14875 CPU=0000 ASID=003C
PSW AT TIME OF ERROR 075C1000 00DD22FA ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00DD22F4 - 00181610 0A0D9540 60004770
GR 0: 84000000 1: 84001000
2: 00A5F38E 3: 00DD1E5A
4: 00A5F4A8 5: 00A5F4FC
6: 00A5F4B0 7: 00A5F358
8: 00AFDB98 9: 00A64D78
A: 58F26110 B: 00A6DBAC
C: 00A5F66C D: 000234FC
E: 00DD2202 F: 00000004
END OF SYMPTOM DUMP
IEF450I PMBCFEXJ ROLLFWD - ABEND=S001 U0000 REASON=00000004
TIME=06.18.01

I've tried also creating the output file from the EXTRACT JOURNAL with a
BLKSIZE (in the DBB) of 23476, with the same results. I realize that the
SORT and STOP AT qualifiers on the ROLLFORWARD are effectively superfluous
since I've done the EXTRACT JOURNAL, but I'm confused as to what could be
going wrong here just the same.

I'm going to be locked in meeting al day today unfortunately, but if anyone
has any ideas, I'm all ideas. I receive in DIGEST mode, so please copy me
directly on your response and I'll give any suggestions a whirl . . .

Thanks in advance for any ideas and suggestions!

PELLERIN MILNOR CORPORATION
Michel J Champagne
Systems Analyst / DBA

Voice: 504-712-7589
FAX: 504-712-3589

Confidentiality Notice: This e-mail message, including any attachments, is
for the sole use of the intended recipient(s) and may contain confidential
and privileged information. Any unauthorized review, use, disclosure or
distribution is prohibited. If you are not the intended recipient, please
contact the sender by reply e-mail and destroy all copies of the original
message.

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








Normal

Normal
Re: Question about ROLLFWD and EXTRACT JOURNAL
"Hi Mike,

You forgot to specify FROM EXTRACT on the ROLLFORWARD statement.

Good luck,
Laura Rochon
Ajilon Consulting

Mike Champagne wrote:
I'm attempting to do a ROLLFWD against a copy of one of our production
segments (CASPDATA). Thankfully, this is not due to any sort of a disaster,
just an exercise to create a copy of our database at a point in time when
nobody had the foresight to take a backup. The journal offloads containing
the changes to be processed have been concatenated, in the order in which
they were created, into a single file on tape. Here's the JCL I'm using:

//PMBCFEXJ JOB 12602,'M.CHAMPAGNE',MSGCLASS=X,REGION=0M,CLASS=C,
// NOTIFY=&SYSUID
//*
//* BCF EXTRACT JOURNAL AS FOLLOWED BY ROLLFORWARD
//* ----> DATABASE MUST NOT BE ONLINE TO A CV WHEN THIS RUNS
//*
// JCLLIB ORDER=PM.COMMON.PROCLIB
// INCLUDE MEMBER=ENVRTEST
// INCLUDE MEMBER=&JOBLIB
//*
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE PM0944.EXTRACT.JOURNAL.SYS002
SET MAXCC=0
/*
//*
//EXTRACT EXEC PGM=IDMSBCF,COND=(0,LT)
// INCLUDE MEMBER=&LOCLPROC
//SYSLST DD SYSOUT=*
//SYSPCH DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SYSIDMS DD DISP=SHR,DSN=PM.COMMON.CNTRLIB(CASDMCL&M1)
//* JOURNAL INPUT
//SYS001 DD DSN=PM.IDMS.JOURNAL.CUM.ARCHIVE(-3),DISP=OLD
//SYS002 DD DSN=PM0944.EXTRACT.JOURNAL.SYS002,
// UNIT=PMBIGDA,DISP=(NEW,CATLG,DELETE),
// DCB=(BLKSIZE=8000,RECFM=VB),
// SPACE=(TRK,(5000,5000),RLSE)
//SYSIPT DD *
CONNECT TO SYSTEM;
EXTRACT JOURNAL FOR SEGMENT CASPDATA
COMPLETED
STOP AT '2005-02-27-00.22.05'
;
/*
//*
//ROLLFWD EXEC PGM=IDMSBCF,COND=(0,LT)
// INCLUDE MEMBER=&LOCLPROC
//SYSLST DD SYSOUT=*
//SYSPCH DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SYSIDMS DD DISP=SHR,DSN=PM.COMMON.CNTRLIB(CASDMCL&M1)
//* EXTRACTED JOURNAL INPUT
//SYS001 DD DSN=PM0944.EXTRACT.JOURNAL.SYS002,DISP=OLD
//SYSIPT DD *
CONNECT TO SYSTEM;
ROLLFORWARD SEGMENT CASPDATA
COMPLETED SORTED VERIFY
STOP AT '2005-02-27-00.22.04'
;
/*
//*
//

The procedure name to which &LOCLPROC expands to contains all the DDs for
ALL system and application areas involved and no SYSCTL card, and the
database files in question are not online to any CV at the time this job
runs.

Now, the EXTRACT appears to be working fine, reporting that it has selected
records for areas I would expect to have been updated in the period in
question, writing an output file, and ending with a zero return code. The
ROLLFORWARD, on the other hand, ends abruptly with the following (JESMSGLG
output):

+PMBCFEXJ,ROLLFWD ,0369,D,SYS001  ,GET
,WRNG.LEN.RECORD,00000085000C00,QSAM


IEC020I 001-4,PMBCFEXJ,ROLLFWD,SYS001,0369,PM0058,

IEC020I PM0944.EXTRACT.JOURNAL.SYS002

IEC020I DCB EROPT=ABE OR AN INVALID CODE, AND/OR NO SYNAD EXIT SPECIFIED

+WER999A PMBCFEXJ,        ,ROLLFWD -  UNSUCCESSFUL SORT 001 S
REASON=00000004
IEA995I SYMPTOM DUMP OUTPUT

SYSTEM COMPLETION CODE=001 REASON CODE=00000004
TIME=06.18.00 SEQ=14875 CPU=0000 ASID=003C
PSW AT TIME OF ERROR 075C1000 00DD22FA ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00DD22F4 - 00181610 0A0D9540 60004770
GR 0: 84000000 1: 84001000
2: 00A5F38E 3: 00DD1E5A
4: 00A5F4A8 5: 00A5F4FC
6: 00A5F4B0 7: 00A5F358
8: 00AFDB98 9: 00A64D78
A: 58F26110 B: 00A6DBAC
C: 00A5F66C D: 000234FC
E: 00DD2202 F: 00000004
END OF SYMPTOM DUMP
IEF450I PMBCFEXJ ROLLFWD - ABEND=S001 U0000 REASON=00000004
TIME=06.18.01

I've tried also creating the output file from the EXTRACT JOURNAL with a
BLKSIZE (in the DBB) of 23476, with the same results. I realize that the
SORT and STOP AT qualifiers on the ROLLFORWARD are effectively superfluous
since I've done the EXTRACT JOURNAL, but I'm confused as to what could be
going wrong here just the same.

I'm going to be locked in meeting al day today unfortunately, but if anyone
has any ideas, I'm all ideas. I receive in DIGEST mode, so please copy me
directly on your response and I'll give any suggestions a whirl . . .

Thanks in advance for any ideas and suggestions!

PELLERIN MILNOR CORPORATION
Michel J Champagne
Systems Analyst / DBA

Voice: 504-712-7589
FAX: 504-712-3589

Confidentiality Notice: This e-mail message, including any attachments, is
for the sole use of the intended recipient(s) and may contain confidential
and privileged information. Any unauthorized review, use, disclosure or
distribution is prohibited. If you are not the intended recipient, please
contact the sender by reply e-mail and destroy all copies of the original
message.


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








Normal

Normal
Re: Question about ROLLFWD and EXTRACT JOURNAL
"Mike,

Reading the R15 manual it appears you need to specify ""FROM EXTRACT"" to use
an input file created by EXTRACT JOURNAL... I think this is necessary
because the extracted journal has somewhat different DCB attributes and
content when contrasted with an archive journal... this is possibly causing
your error... also you might try it without SORTED, VERIFY, COMPLETED and
STOP AT since they're not supported using extracted input....

here's what the manual says:

FROM EXTRACT
Specifies that an extract journal will be used for input instead of a
standard
archive journal tape.

This option excludes use of the SORTED/SEQUENTIAL, VERIFY,
ALL/COMPLETED, and STOP AT options because these options have no effect
on the already created extract file.

.. in the ""old"" days (before EXTRACT JOURNAL) rollforward input always had
to be on tape - when it hits an ABRT journal record (due to an aborted
run-unit) it turns around and reads the tape backwards and the channel
commands used won't work with disk input.... using EXTRACT JOURNAL makes it
possible to put the journal input to roll-forward on disk and thus avoid
the tape requirement....

Good luck!

Tom Flesher
E-Net




Mike Champagne
<mchampagne@MILNO
R.COM> To
Sent by: IDMS IDMS-L@LISTSERV.IUASSN.COM
Public Discussion cc
Forum
<IDMS-L@LISTSERV. Subject
IUASSN.COM> Question about ROLLFWD and EXTRACT
JOURNAL

03/02/2005 04:37
AM


Please respond to
IDMS Public
Discussion Forum
<IDMS-L@LISTSERV.
IUASSN.COM>






I'm attempting to do a ROLLFWD against a copy of one of our production
segments (CASPDATA). Thankfully, this is not due to any sort of a
disaster,
just an exercise to create a copy of our database at a point in time when
nobody had the foresight to take a backup. The journal offloads containing
the changes to be processed have been concatenated, in the order in which
they were created, into a single file on tape. Here's the JCL I'm using:

//PMBCFEXJ JOB 12602,'M.CHAMPAGNE',MSGCLASS=X,REGION=0M,CLASS=C,
// NOTIFY=&SYSUID
//*
//* BCF EXTRACT JOURNAL AS FOLLOWED BY ROLLFORWARD
//* ----> DATABASE MUST NOT BE ONLINE TO A CV WHEN THIS RUNS
//*
// JCLLIB ORDER=PM.COMMON.PROCLIB
// INCLUDE MEMBER=ENVRTEST
// INCLUDE MEMBER=&JOBLIB
//*
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE PM0944.EXTRACT.JOURNAL.SYS002
SET MAXCC=0
/*
//*
//EXTRACT EXEC PGM=IDMSBCF,COND=(0,LT)
// INCLUDE MEMBER=&LOCLPROC
//SYSLST DD SYSOUT=*
//SYSPCH DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SYSIDMS DD DISP=SHR,DSN=PM.COMMON.CNTRLIB(CASDMCL&M1)
//* JOURNAL INPUT
//SYS001 DD DSN=PM.IDMS.JOURNAL.CUM.ARCHIVE(-3),DISP=OLD
//SYS002 DD DSN=PM0944.EXTRACT.JOURNAL.SYS002,
// UNIT=PMBIGDA,DISP=(NEW,CATLG,DELETE),
// DCB=(BLKSIZE=8000,RECFM=VB),
// SPACE=(TRK,(5000,5000),RLSE)
//SYSIPT DD *
CONNECT TO SYSTEM;
EXTRACT JOURNAL FOR SEGMENT CASPDATA
COMPLETED
STOP AT '2005-02-27-00.22.05'
;
/*
//*
//ROLLFWD EXEC PGM=IDMSBCF,COND=(0,LT)
// INCLUDE MEMBER=&LOCLPROC
//SYSLST DD SYSOUT=*
//SYSPCH DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SYSIDMS DD DISP=SHR,DSN=PM.COMMON.CNTRLIB(CASDMCL&M1)
//* EXTRACTED JOURNAL INPUT
//SYS001 DD DSN=PM0944.EXTRACT.JOURNAL.SYS002,DISP=OLD
//SYSIPT DD *
CONNECT TO SYSTEM;
ROLLFORWARD SEGMENT CASPDATA
COMPLETED SORTED VERIFY
STOP AT '2005-02-27-00.22.04'
;
/*
//*
//

The procedure name to which &LOCLPROC expands to contains all the DDs for
ALL system and application areas involved and no SYSCTL card, and the
database files in question are not online to any CV at the time this job
runs.

Now, the EXTRACT appears to be working fine, reporting that it has selected
records for areas I would expect to have been updated in the period in
question, writing an output file, and ending with a zero return code. The
ROLLFORWARD, on the other hand, ends abruptly with the following (JESMSGLG
output):

+PMBCFEXJ,ROLLFWD ,0369,D,SYS001  ,GET
,WRNG.LEN.RECORD,00000085000C00,QSAM


IEC020I 001-4,PMBCFEXJ,ROLLFWD,SYS001,0369,PM0058,

IEC020I PM0944.EXTRACT.JOURNAL.SYS002

IEC020I DCB EROPT=ABE OR AN INVALID CODE, AND/OR NO SYNAD EXIT SPECIFIED

+WER999A PMBCFEXJ,        ,ROLLFWD -  UNSUCCESSFUL SORT 001 S
REASON=00000004
IEA995I SYMPTOM DUMP OUTPUT

SYSTEM COMPLETION CODE=001 REASON CODE=00000004
TIME=06.18.00 SEQ=14875 CPU=0000 ASID=003C
PSW AT TIME OF ERROR 075C1000 00DD22FA ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00DD22F4 - 00181610 0A0D9540 60004770
GR 0: 84000000 1: 84001000
2: 00A5F38E 3: 00DD1E5A
4: 00A5F4A8 5: 00A5F4FC
6: 00A5F4B0 7: 00A5F358
8: 00AFDB98 9: 00A64D78
A: 58F26110 B: 00A6DBAC
C: 00A5F66C D: 000234FC
E: 00DD2202 F: 00000004
END OF SYMPTOM DUMP
IEF450I PMBCFEXJ ROLLFWD - ABEND=S001 U0000 REASON=00000004
TIME=06.18.01

I've tried also creating the output file from the EXTRACT JOURNAL with a
BLKSIZE (in the DBB) of 23476, with the same results. I realize that the
SORT and STOP AT qualifiers on the ROLLFORWARD are effectively superfluous
since I've done the EXTRACT JOURNAL, but I'm confused as to what could be
going wrong here just the same.

I'm going to be locked in meeting al day today unfortunately, but if anyone
has any ideas, I'm all ideas. I receive in DIGEST mode, so please copy me
directly on your response and I'll give any suggestions a whirl . . .

Thanks in advance for any ideas and suggestions!

PELLERIN MILNOR CORPORATION
Michel J Champagne
Systems Analyst / DBA

Voice: 504-712-7589
FAX: 504-712-3589

Confidentiality Notice: This e-mail message, including any attachments, is
for the sole use of the intended recipient(s) and may contain confidential
and privileged information. Any unauthorized review, use, disclosure or
distribution is prohibited. If you are not the intended recipient, please
contact the sender by reply e-mail and destroy all copies of the original
message.

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








Normal

Normal
SMP Question
"When do SMPs get updated?

We had a data area where the print space (with the 'full' parameter) showed
14% available - yet all processing against this area received **11 errors.
When we executed print space without the 'full' parameter (thus only reading
the SMPs), it showed 0 space available.

Some background on the area:
it houses a single record type that is calc and compressed;
it used to be radix 7 - we used the page convert utility to make it 8.

Assumably SMPs get decremented, but when?

Jon Zengerle
SAIC / DHS ICE
Washington, DC

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








Normal

Normal
Question about ROLLFWD and EXTRACT JOURNAL
"I'm attempting to do a ROLLFWD against a copy of one of our production
segments (CASPDATA). Thankfully, this is not due to any sort of a disaster,
just an exercise to create a copy of our database at a point in time when
nobody had the foresight to take a backup. The journal offloads containing
the changes to be processed have been concatenated, in the order in which
they were created, into a single file on tape. Here's the JCL I'm using:

//PMBCFEXJ JOB 12602,'M.CHAMPAGNE',MSGCLASS=X,REGION=0M,CLASS=C,
// NOTIFY=&SYSUID
//*
//* BCF EXTRACT JOURNAL AS FOLLOWED BY ROLLFORWARD
//* ----> DATABASE MUST NOT BE ONLINE TO A CV WHEN THIS RUNS
//*
// JCLLIB ORDER=PM.COMMON.PROCLIB
// INCLUDE MEMBER=ENVRTEST
// INCLUDE MEMBER=&JOBLIB
//*
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE PM0944.EXTRACT.JOURNAL.SYS002
SET MAXCC=0
/*
//*
//EXTRACT EXEC PGM=IDMSBCF,COND=(0,LT)
// INCLUDE MEMBER=&LOCLPROC
//SYSLST DD SYSOUT=*
//SYSPCH DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SYSIDMS DD DISP=SHR,DSN=PM.COMMON.CNTRLIB(CASDMCL&M1)
//* JOURNAL INPUT
//SYS001 DD DSN=PM.IDMS.JOURNAL.CUM.ARCHIVE(-3),DISP=OLD
//SYS002 DD DSN=PM0944.EXTRACT.JOURNAL.SYS002,
// UNIT=PMBIGDA,DISP=(NEW,CATLG,DELETE),
// DCB=(BLKSIZE=8000,RECFM=VB),
// SPACE=(TRK,(5000,5000),RLSE)
//SYSIPT DD *
CONNECT TO SYSTEM;
EXTRACT JOURNAL FOR SEGMENT CASPDATA
COMPLETED
STOP AT '2005-02-27-00.22.05'
;
/*
//*
//ROLLFWD EXEC PGM=IDMSBCF,COND=(0,LT)
// INCLUDE MEMBER=&LOCLPROC
//SYSLST DD SYSOUT=*
//SYSPCH DD SYSOUT=*
//SORTMSG DD SYSOUT=*
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(300,100))
//SYSIDMS DD DISP=SHR,DSN=PM.COMMON.CNTRLIB(CASDMCL&M1)
//* EXTRACTED JOURNAL INPUT
//SYS001 DD DSN=PM0944.EXTRACT.JOURNAL.SYS002,DISP=OLD
//SYSIPT DD *
CONNECT TO SYSTEM;
ROLLFORWARD SEGMENT CASPDATA
COMPLETED SORTED VERIFY
STOP AT '2005-02-27-00.22.04'
;
/*
//*
//

The procedure name to which &LOCLPROC expands to contains all the DDs for
ALL system and application areas involved and no SYSCTL card, and the
database files in question are not online to any CV at the time this job
runs.

Now, the EXTRACT appears to be working fine, reporting that it has selected
records for areas I would expect to have been updated in the period in
question, writing an output file, and ending with a zero return code. The
ROLLFORWARD, on the other hand, ends abruptly with the following (JESMSGLG
output):

+PMBCFEXJ,ROLLFWD ,0369,D,SYS001  ,GET
,WRNG.LEN.RECORD,00000085000C00,QSAM


IEC020I 001-4,PMBCFEXJ,ROLLFWD,SYS001,0369,PM0058,

IEC020I PM0944.EXTRACT.JOURNAL.SYS002

IEC020I DCB EROPT=ABE OR AN INVALID CODE, AND/OR NO SYNAD EXIT SPECIFIED

+WER999A PMBCFEXJ,        ,ROLLFWD -  UNSUCCESSFUL SORT 001 S
REASON=00000004
IEA995I SYMPTOM DUMP OUTPUT

SYSTEM COMPLETION CODE=001 REASON CODE=00000004
TIME=06.18.00 SEQ=14875 CPU=0000 ASID=003C
PSW AT TIME OF ERROR 075C1000 00DD22FA ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00DD22F4 - 00181610 0A0D9540 60004770
GR 0: 84000000 1: 84001000
2: 00A5F38E 3: 00DD1E5A
4: 00A5F4A8 5: 00A5F4FC
6: 00A5F4B0 7: 00A5F358
8: 00AFDB98 9: 00A64D78
A: 58F26110 B: 00A6DBAC
C: 00A5F66C D: 000234FC
E: 00DD2202 F: 00000004
END OF SYMPTOM DUMP
IEF450I PMBCFEXJ ROLLFWD - ABEND=S001 U0000 REASON=00000004
TIME=06.18.01

I've tried also creating the output file from the EXTRACT JOURNAL with a
BLKSIZE (in the DBB) of 23476, with the same results. I realize that the
SORT and STOP AT qualifiers on the ROLLFORWARD are effectively superfluous
since I've done the EXTRACT JOURNAL, but I'm confused as to what could be
going wrong here just the same.

I'm going to be locked in meeting al day today unfortunately, but if anyone
has any ideas, I'm all ideas. I receive in DIGEST mode, so please copy me
directly on your response and I'll give any suggestions a whirl . . .

Thanks in advance for any ideas and suggestions!

PELLERIN MILNOR CORPORATION
Michel J Champagne
Systems Analyst / DBA

Voice: 504-712-7589
FAX: 504-712-3589

Confidentiality Notice: This e-mail message, including any attachments, is
for the sole use of the intended recipient(s) and may contain confidential
and privileged information. Any unauthorized review, use, disclosure or
distribution is prohibited. If you are not the intended recipient, please
contact the sender by reply e-mail and destroy all copies of the original
message.

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








Normal

Normal
Re: BUILD/REBUILD Indexes
"Ina
Consider also doing a TUNE INDEX, can also run in central mode with commits.

Outcomes