View previous topic :: View next topic
|
Author |
Message |
dalib123
New User
Joined: 14 Oct 2008 Posts: 7 Location: india
|
|
|
|
hi I have defined a file like
Code: |
SELECT IPRP-FILE ASSIGN TO IPRPFILE
ACCESS DYNAMIC
ORGANIZATION INDEXED
RECORD KEY IS IPRP-KEY1
ALTERNATE RECORD KEY IS IPRP-KEY2
FILE STATUS WW-SVMIPRP-STATUS.
FD IPRP-FILE.
01 SVMIPRP-INST-PRODUCT-RECORD.
03 IPRP-KEY1.
05 IPRP-LFI PIC X(1).
05 IPRP-SUB-NO PIC X(7).
05 IPRP-PLI PIC X(15).
05 IPRP-KEY3.
07 IPRP-ITEM-NO PIC S9(11) COMP-3.
07 IPRP-KEY-SEQ-NO PIC 9.
07 IPRP-SEQ-NO REDEFINES IPRP-KEY-SEQ-NO
PIC 9.
03 IPRP-ADDR-REFNO PIC X(8).
03 IPRP-PR-LIST PIC 9(2).
03 IPRP-PENDING PIC X(1).
88 IPRP-PEND-INSTALL VALUE 'P'.
88 IPRP-INSTALLED VALUE 'I'.
88 IPRP-PEND-REMOVAL VALUE 'Q'.
88 IPRP-REMOVED VALUE 'R'.
03 IPRP-TARIFF PIC X(1).
03 IPRP-KEY2.
05 IPRP-A-LFI PIC X(1).
05 IPRP-ORD-NO PIC 9(6).
05 IPRP-ORD-NO-O REDEFINES IPRP-ORD-NO PIC X(6).
05 IPRP-ORD-PROD-NO PIC 9(3).
03 IPRP-BIL-IND PIC X.
03 IPRP-FG-IND PIC X.
03 IPRP-LO-IND PIC X.
03 IPRP-FM-IND PIC X.
03 IPRP-PROD-CODE PIC X(15).
03 IPRP-D-CR PIC 9(7) COMP-3.
03 IPRP-D-UPD PIC 9(7) COMP-3.
03 IPRP-UPD-SEQ PIC 9(3) COMP-3.
03 IPRP-REL-IND PIC X(3).
03 IPRP-NT-ID-NO PIC X(3).
03 IPRP-ACCT-NO PIC X(3).
03 IPRP-BIL-DATE PIC X(5).
03 IPRP-D-FG-INSTALLED PIC 9(6) COMP-3.
03 IPRP-D-LO-INSTALLED PIC 9(6) COMP-3.
03 IPRP-D-FM-INSTALLED PIC 9(6) COMP-3.
03 IPRP-D-ALL-INSTALLED PIC 9(6) COMP-3.
03 IPRP-BILL-NO PIC X(6).
03 IPRP-BILL-SEQ-NO PIC X(3).
03 IPRP-USER-NO PIC X(4).
03 FILLER PIC X(26). |
in jcl
Code: |
//IPRPFILE DD DSN=TUI.SA.SVMIPR1.INSTALL.PRODUCT.WK1.KSDS,DISP=SHR
//IPRPFIL1 DD DSN=TUI.SA.SVMIPR2.INSTALL.PRODUCT.WK1.PATH,DISP=SHR |
when i m opening the file it is giving error 39
"Code"d for readability |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
It may help if you post the idcams/define and the open. |
|
Back to top |
|
|
silentarya
New User
Joined: 11 Mar 2007 Posts: 35 Location: Chennai
|
|
|
|
When you get the file status 39 that means it was unable to open the file due to mismatch in IDCAMS code and the file definition.... PLs cross check and if possible paste the idcams as well as the open statement.... Are you trying to open using output method or I/O method ... Are you adding the record as a first record to the VSAm file ???? |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
Quote: |
Are you adding the record as a first record to the VSAm file |
Arya: the JCL lines reference the PATH name for the alternate index, and alternate indexes cannot be built unless the base VSAM file has at least one record in it, so your question has already been answered.
dalib: what's the LISTCAT output look like? |
|
Back to top |
|
|
|