Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

help me resolve the problem with handling a file with AIX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
gixcng

New User


Joined: 26 Oct 2007
Posts: 15
Location: chennai

PostPosted: Tue Nov 06, 2007 3:56 pm    Post subject: help me resolve the problem with handling a file with AIX
Reply with quote

hi,
please look at the program.
iam trying to access some details of file using the alternate key:
PROD-WHOU.
1.i get a file error :39 (before opening ) and 47(after performing the operation,with a max cc = 0.
2.this program works fine with the primary key and not the AIX.
3. how do i specify the AIX in the RUN jcl?

Code:
 //XY65TST JOB 1,'TEST JCL',MSGCLASS=Y,CLASS=4,RESTART=*,   
 //      NOTIFY=&SYSUID                                     
 //P1COMPIL EXEC  PGM=IGYCRCTL,                             
 //       PARM='OFFSET,MAP,OPT,NOSSR'                       
 //STEPLIB  DD  DSN=SYS1.COB2COMP,DISP=SHR                 
 //SYSPRINT DD  SYSOUT=*                                   
 //SYSLIN   DD  DSN=&&LOADSET,                             
 //             UNIT=SYSDA,                                 
 //             DISP=(MOD,PASS),                           
 //             SPACE=(TRK,(1,1))                           
 //SYSUT1   DD  UNIT=SYSDA,SPACE=(TRK,(1,1))               
 //SYSUT2   DD  UNIT=SYSDA,SPACE=(TRK,(1,1))               
 //SYSUT3   DD  UNIT=SYSDA,SPACE=(TRK,(1,1))               
 //SYSUT4   DD  UNIT=SYSDA,SPACE=(TRK,(1,1))               
 //SYSUT5   DD  UNIT=SYSDA,SPACE=(TRK,(1,1))               
 //SYSUT6   DD  UNIT=SYSDA,SPACE=(TRK,(1,1))               
 //SYSUT7   DD  UNIT=SYSDA,SPACE=(TRK,(1,1))               
//SYSIN    DD  *                                         
       IDENTIFICATION DIVISION.                         
       PROGRAM-ID. KSDSAIX.                             
       ENVIRONMENT DIVISION.                             
       INPUT-OUTPUT SECTION.                             
       FILE-CONTROL.                                     
            SELECT KSDS-FILE ASSIGN TO DD1               
            ORGANIZATION IS INDEXED                     
            ACCESS MODE  IS DYNAMIC                     
            RECORD KEY   IS PROD-WHOU                   
      *     ALTERNATE KEY IS PROD-WHOU WITH DUPLICATES   
            FILE STATUS  IS KSDS-FILE-STATUS.           
       DATA DIVISION.                                   
       FILE SECTION.                                     
       FD KSDS-FILE.                                     
       01 KSDS-REC.                                     
            05 PROD-NUM      PIC  9(03).                 
            05 F             PIC  X.                     
            05 PROD-NAME     PIC  X(10).                 
            05 F             PIC  X.                     
            05 PROD-UNIT     PIC  X(02).                               
            05 F             PIC  X(03).                               
            05 PROD-RATE     PIC  9(04)V9(02).                         
            05 F             PIC  X.                                   
            05 PROD-TYPE     PIC  X(07).                               
            05 F             PIC  XX.                                 
            05 PROD-WHOU     PIC  X(02).                               
            05 F             PIC  X(42).                               
       WORKING-STORAGE SECTION.                                       
       01 KSDS-FILE-STATUS   PIC  XX.                                 
       01 PRODWHOU           PIC  XX.                                 
       PROCEDURE DIVISION.                                             
           ACCEPT     PRODWHOU.                                       
           OPEN I-O   KSDS-FILE.                                       
           MOVE       PRODWHOU TO PROD-WHOU.                           
           DISPLAY    "KSDS STATUS AFTER OPENING:", KSDS-FILE-STATUS. 
           START      KSDS-FILE KEY = PROD-WHOU.                       
       READ-PARA.                                                     
           READ  KSDS-FILE NEXT AT END GO TO STOP-PARA.               
           DISPLAY   KSDS-REC.                                         
          DISPLAY   KSDS-FILE-STATUS.                             
          GO TO     READ-PARA.                                   
      STOP-PARA.                                                 
          CLOSE     KSDS-FILE.                                   
          STOP RUN.                                               
*                                                                 
/P2LINK EXEC  PGM=IEWL,REGION=1024K,COND=(8,LE),                 
/ PARM=(LIST,LET,MAP,XREF,,                                       
/   '')                                                           
/SYSPRINT DD  SYSOUT=*                                           
/SYSLIB   DD  DSN=SYS1.COB2LIB,                                   
/             DISP=SHR                                           
/SYSLIN   DD  DSN=&&LOADSET,                                     
/             DISP=(OLD,DELETE)                                   
/****************************************************             
/* SPECIFY THE PDS IN WHICH THE PROGRAM LOAD MODULE *             
/* IS TO BE CREATED                                 *             
/* FOR EG. <SYSUID.QUALIFIER1.QUALIFIER2(MEMBER)>   *             
/****************************************************             
/SYSLMOD  DD  DSN=XY65.XY.LOAD(KSDSAIX),                         
//             DISP=SHR                                     
//SYSUT1   DD  UNIT=SYSDA,                                 
//             SPACE=(TRK,(1,1)),                           
//             DISP=NEW                                     
//****************************************************     
//* RUN JCL                                                 
//****************************************************     
//STEP1     EXEC PGM=KSDSAIX                               
//STEPLIB   DD   DSN=XY65.XY.LOAD,DISP=SHR                 
//*DD1       DD   DSN=XY65.KSDS.CLUSTER,DISP=SHR           
//DD1       DD   DSN=XY65.KSDS.CLUSTER.AIX,DISP=SHR         
//SYSOUT    DD   SYSOUT=*                                   
//SYSPRINT  DD   SYSOUT=*                                   
//SYSUDUMP  DD   SYSOUT=*                                   
//SYSABEND  DD   SYSOUT=*                                   
//SYSIN     DD   *                                         
LI                                                         
/*                                                         



thank you all,
Back to top
View user's profile Send private message

murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1439
Location: Bangalore,India

PostPosted: Tue Nov 06, 2007 4:01 pm    Post subject:
Reply with quote

Gayathri,

File status 39 -

Quote:
The OPEN statement was unsuccessful
because a conflict was detected between
the fixed file attributes and the
attributes specified for that file in the
program. These attributes include the
organization of the file (sequential,
relative, or indexed), the prime record
key, the alternate record keys, the code
set, the maximum record size, the record
type (fixed or variable), and the blocking
factor.


File status 47 -

Quote:
The execution of a READ statement was
attempted on a file not open in the input
or I-O mode.
Back to top
View user's profile Send private message
gixcng

New User


Joined: 26 Oct 2007
Posts: 15
Location: chennai

PostPosted: Tue Nov 06, 2007 4:22 pm    Post subject:
Reply with quote

thank you murali

i have gone through these,but iam still not able to fix the problem.

the same program works fine without alternate key.

and i forgot to include one more thing about the SYSOUT:

the read was an infinite loop.and hence
47 and LI(alternate key given as the sysin)
//SYSIN DD *
LI
/*
would there be any problem associated with the creation of AIX/

please let me know,
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Tue Nov 06, 2007 4:29 pm    Post subject: Reply to: help me resolve the problem with handling a file
Reply with quote

I might be wrong...
but to process a cluster thru an alternate index You need to define a path
which is the link between the AIX and the original cluster...

the steps are ...

define cluster
load cluster

define aix
build aix

define path

process the ksds
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10256
Location: italy

PostPosted: Tue Nov 06, 2007 4:38 pm    Post subject: Reply to: help me resolve the problem with handling a file
Reply with quote

Quote:
process the ksds


As usual I hit submit too fast

to exercise just modify Your program to read all the records ( or a significant number ) sequentially..

if all the steps were done in the right way the same program will process
both the base cluster and the PATH which as the name suggests is
the logical connection of the AIX to the base cluster
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Tue Nov 06, 2007 4:43 pm    Post subject:
Reply with quote

Why is '* ALTERNATE KEY IS PROD-WHOU WITH DUPLICATES' comented out and also '//*DD1 DD DSN=XY65.KSDS.CLUSTER,DISP=SHR'?
Back to top
View user's profile Send private message
revel

Active User


Joined: 05 Apr 2005
Posts: 135
Location: Bangalore/Chennai-INDIA

PostPosted: Tue Nov 06, 2007 4:59 pm    Post subject:
Reply with quote

Gayatri,

Code:
XY65.KSDS.CLUSTER.AIX
is this Alternate INDEX if so its wrong give PATH DATA SET

Regard's
Raghu
Back to top
View user's profile Send private message
gixcng

New User


Joined: 26 Oct 2007
Posts: 15
Location: chennai

PostPosted: Wed Nov 07, 2007 10:37 am    Post subject:
Reply with quote

CICS Guy wrote:
Why is '* ALTERNATE KEY IS PROD-WHOU WITH DUPLICATES' comented out and also '//*DD1 DD DSN=XY65.KSDS.CLUSTER,DISP=SHR'?


---i have tried several alternatives.
in doing so,i had to comment some lines.that was it.



thank you cics guy
Back to top
View user's profile Send private message
gixcng

New User


Joined: 26 Oct 2007
Posts: 15
Location: chennai

PostPosted: Wed Nov 07, 2007 11:02 am    Post subject: Re: Reply to: help me resolve the problem with handling a f
Reply with quote

enrico-sorichetti wrote:
Quote:
process the ksds


to exercise just modify Your program to read all the records ( or a significant number ) sequentially..
--will you pls make me clear , whatyour asking me to do.if it was to read the whole records,i tried to do it.i did it DYNAMICALLY.do you mean to say there was some mistake in READING the file. ya.i had the read in an infinite loop.but,this very well worked with the primary key,for the same file. i have tried it out yeasterday.so there is something wrong with handling the alternate key.

if all the steps were done in the right way the same program will process
both the base cluster and the PATH which as the name suggests is
the logical connection of the AIX to the base cluster

--i have tried mentioning the corresponding path also.still it dint work.though max cc =0. would there be any problem with the creation of the aix and the path?
Back to top
View user's profile Send private message
revel

Active User


Joined: 05 Apr 2005
Posts: 135
Location: Bangalore/Chennai-INDIA

PostPosted: Wed Nov 07, 2007 2:59 pm    Post subject:
Reply with quote

Gayatri,

Use

Code:
    SELECT KSDS-FILE ASSIGN TO DD1   

as
    SELECT KSDS-FILE ASSIGN TO SAMP


Code:
 ALTERNATE RECORD KEY IS data-name-3 WITH DUPLICATES

in INPUT-OUTPUT SECTION.
FILE-CONTROL.

and

Code RUN JCL like

Code:
//****************************************************     
//* RUN JCL                                                 
//****************************************************     
//STEP1     EXEC PGM=KSDSAIX                               
//STEPLIB   DD   DSN=XY65.XY.LOAD,DISP=SHR 

<  The Above DATA SET should be LOad module  >
               
//EMP         DD   DSN=XY65.KSDS.CLUSTER,DISP=SHR

< The above should be BASE CLUSTER  >
           
//EMP1       DD   DSN=XY65.KSDS.CLUSTER.AIX,DISP=SHR         

< The Above should be PATH DATA SET  >

//SYSOUT   DD   SYSOUT=*                                   
//SYSPRINT   DD   SYSOUT=*                                   
//SYSUDUMP  DD   SYSOUT=*                                   
//SYSABEND  DD   SYSOUT=*                                   
//SYSIN         DD   *                                         
LI                                                         
/*
Back to top
View user's profile Send private message
revel

Active User


Joined: 05 Apr 2005
Posts: 135
Location: Bangalore/Chennai-INDIA

PostPosted: Wed Nov 07, 2007 3:02 pm    Post subject:
Reply with quote

Gayatri,

I went through your code, Its as to WORK(I don't how come it going loop)

Any how Try the above code and let me know the result

I will get back you soon..

Regard's
raghu
Back to top
View user's profile Send private message
rpuhlman

New User


Joined: 11 Jun 2007
Posts: 80
Location: Columbus, Ohio

PostPosted: Wed Nov 07, 2007 4:32 pm    Post subject:
Reply with quote

The loop ... Is most likely caused by a failure to check the file status after your read statement. After the open statement you should check the file status.

Code:
IF KSDS-FILE-STATUS = '00' OR '97'
   CONTINUE
ELSE
   DISPLAY pertinent info
   PERFORM STOP-PARA
END-IF.


A '97' is the result of a verification performed on the KSDS dataset prior to the open and is ok.

You are only checking for an "AT END" condition on your read statement. If you check your file status after your read, you have better control over your program, ie

Code:
EVALUATE KSDS-FILE-STATUS
    WHEN '00'
         CONTINUE
    WHEN '10' (end of file)
         PERFORM normal end of file process
         PERFORM STOP-PARA
    WHEN '23' (record not found -- also indicates file not
               found, but you would not get to this point without
               a successful open)
         PERFORM record not found process (which may or may not include ending the program)
    WHEN OTHER
         DISPLAY pertinent info
         PERFORM STOP-PARA
END-EVALUATE.
Back to top
View user's profile Send private message
gixcng

New User


Joined: 26 Oct 2007
Posts: 15
Location: chennai

PostPosted: Wed Nov 07, 2007 5:41 pm    Post subject:
Reply with quote

hi prabhath,


Code:
    SELECT KSDS-FILE ASSIGN TO DD1   

as
    SELECT KSDS-FILE ASSIGN TO SAMP


will you be more clear,about what dd1 and samp refers to

is the AS a word in the syntax?
does dd1 refer to ksds-file
and samp refers to the corresponding path
Back to top
View user's profile Send private message
revel

Active User


Joined: 05 Apr 2005
Posts: 135
Location: Bangalore/Chennai-INDIA

PostPosted: Tue Nov 13, 2007 9:07 am    Post subject:
Reply with quote

Gayatri,

What i meant was,

Use

Code:
SELECT KSDS-FILE ASSIGN TO SAMP


instead

Code:
SELECT KSDS-FILE ASSIGN TO DD1


And change accordingly in RUN JCL

as

Code:
//****************************************************     
//* RUN JCL                                                 
//****************************************************     
//STEP1     EXEC PGM=KSDSAIX                               
//STEPLIB   DD   DSN=XY65.XY.LOAD,DISP=SHR 

<  The Above DATA SET should be LOad module  >
               
//SAMP         DD   DSN=XY65.KSDS.CLUSTER,DISP=SHR

< The above should be BASE CLUSTER  >
           
//SAMP1       DD   DSN=XY65.KSDS.CLUSTER.AIX,DISP=SHR         

< The Above should be PATH DATA SET  >

//SYSOUT   DD   SYSOUT=*                                   
//SYSPRINT   DD   SYSOUT=*                                   
//SYSUDUMP  DD   SYSOUT=*                                   
//SYSABEND  DD   SYSOUT=*                                   
//SYSIN         DD   *                                         
LI                                                         
/*
Back to top
View user's profile Send private message
gixcng

New User


Joined: 26 Oct 2007
Posts: 15
Location: chennai

PostPosted: Tue Nov 13, 2007 9:31 am    Post subject: Reply to: help me resolve the problem with handling a file
Reply with quote

thank you, revel,


iam clarified.

i will work on it.



thanks,
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am
No new posts File processing vishwakotin Mainframe Interview Questions 9 Fri Apr 28, 2017 11:38 am
No new posts Occurrence of various strings within ... TS70363 JCL & VSAM 1 Thu Apr 27, 2017 8:18 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us