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
 

 

Query regarding Easytrieve program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
shanudarling
Warnings : 1

New User


Joined: 20 Dec 2006
Posts: 55
Location: noida

PostPosted: Wed Jan 06, 2016 5:33 pm    Post subject: Query regarding Easytrieve program
Reply with quote

HI,

Below is my easytrieve program -

Code:


PARM   DEBUG(FLOW)                 
FILE MERGE  VB(44  4400)           
*   INPUT AREAS  STPACC             
      INREC            1   40   A   
      BSB_ACC          1   4  N     
      BSB_ACC_ACC      1   10 N     
      SGMT_CHK_ACC     11  6  A     
      FILLER_ACC       17  2  B     
      BSB_ACC_HEX_ACC  19  5  U     
*   INPUT AREAS  STPCHQ             
      BSB_ACC_CHQ      1   10 N     
      SGMT_CHK_CHQ     11  6  A     
      FILLER_CHQ       17  2  B     
      SERLNO_CHQ       19  4  P 0   
      AMOUNT_CHQ       23  6  P 2   
      STRTDT_CHQ       29  3  P 3   
      ENDDTE_CHQ       32  3  P 3   
*   INPUT AREAS  STPCTL             
      BSB_CTL          1   4  N     
      ACC_CTL          5   6  N     
      SGMT_CHK_CTL     11  6  A       
      FILLER_CTL       17  2  B       
      ITEM_COUNT       19  5  P 0     
      AMOUNT_CTL       24  7  P 2     
*   INPUT AREAS  CNTLDTE             
      BSB_DTE          1   4  N       
      ACC_DTE          5   6  N       
      SGMT_CHK_DTE     11  7  A       
      FILLER_DTE       18  1  B       
      CNTL_DTE         19  12 N       
      BROSY_DTE        31  3  P 0     
      BROST_DTE        34  3  P 0     
      BRNEW_DTE        37  3  P 0     
FILE OUTPUT VB(255 23476)             
*   OUTPUT AREAS STPACC               
      OUTREC            1  40  A     
      BSB_ACC_O         1   4  N     
      BSB_ACC_ACC_O     1   10 N     
      SGMT_CHK_ACC_O    11  6  A     
      FILLER_ACC_O      17  2  B     
      BSB_ACC_HEX_ACC_O 19  5  U     
*   OUTPUT AREAS STPCHQ               
      BSB_ACC_CHQ_O     1   10 N     
      SGMT_CHK_CHQ_O    11  6  A         
      FILLER_CHQ_O      17  2  B         
      SERLNO_CHQ_O      19  4  P 0       
      AMOUNT_CHQ_O      23  6  P 2       
      STRTDT_CHQ_O      29  3  P 3       
      ENDDTE_CHQ_O      32  3  P 3       
*   OUTPUT AREAS STPCTL                 
      BSB_CTL_O         1   4  N         
      ACC_CTL_O         5   6  N         
      SGMT_CHK_CTL_O    11  6  A         
      FILLER_CTL_O      17  2  B         
      ITEM_COUNT_O      19  5  P 0       
      AMOUNT_CTL_O      24  7  P 2       
*   OUTPUT AREAS CNTLDTE                 
      BSB_DTE_O        1   4  N         
      ACC_DTE_O        5   6  N         
      SGMT_CHK_DTE_O   11  7  A         
      FILLER_DTE_O     18  1  B         
      CNTL_DTE_O       19  12 N         
      BROSY_DTE_O      31  3  P 0       
      BROST_DTE_O      34  3  P 0       
      BRNEW_DTE_O      37  3  P 0       
*   WORK  AREA                           
      PREV_BSB    W   4  N   VALUE(0)                                 
      TOT_STPCHQ  W   7  P 0 VALUE(0)                                 
      TOT_STPAMT  W   8  P 2 VALUE(0)                                 
*                                                                     
*                                                                     
 JOB INPUT  MERGE   FINISH DISP-TOTALS                                 
                                                                       
*                                        FIRST RECORD                 
       DISPLAY  INREC                                                 
   IF  PREV_BSB  =  0                                                 
       OUTREC = INREC                                                 
       PUT  OUTPUT                                                     
   END-IF                                                             
                                                                       
*      WRITE RECORD IF SAME BSB AND SEGEMENT IS STPACC BUT NOT THE     
*      FIRST RECORD                                                   
                                                                       
   IF PREV_BSB = BSB_ACC AND SGMT_CHK_ACC = 'STPACC'  AND PREV_BSB NE 0
       OUTREC = INREC                                                 
       PUT  OUTPUT                                                     
   END-IF                                                             
                                                                       
*      WRITE RECORD IF SAME BSB AND SEGEMENT IS STPCHQ                 
*      WRITE RECORD IF SAME BSB AND SEGEMENT IS STPCHQ         
                                                               
   IF PREV_BSB  = BSB_ACC  AND SGMT_CHK_CHQ = 'STPCHQ'         
       OUTREC = INREC                                         
       PUT  OUTPUT                                             
       TOT_STPCHQ  =  TOT_STPCHQ  +  1                         
       TOT_STPAMT  =  TOT_STPAMT  +  AMOUNT_CHQ               
   END-IF                                                     
*                         WRITE CONTROL SEGMENT ON END OF BSB 
   IF PREV_BSB NE BSB_ACC  AND PREV_BSB NE  0  AND  +         
        SGMT_CHK_CTL   NE  'CNTLDTE'                           
       BSB_CTL_O      =  PREV_BSB                             
       ACC_CTL_O      =  999999                               
       SGMT_CHK_CTL_O = 'STPCTL'                               
       ITEM_COUNT_O = TOT_STPCHQ                               
       AMOUNT_CTL_O = TOT_STPAMT                               
       PUT  OUTPUT                                             
       TOT_STPCHQ =  0                                         
       TOT_STPAMT =  0                                         
       BSB_ACC_ACC_O  =  BSB_ACC_ACC                           
       SGMT_CHK_ACC_O =  'STPACC'                             
       BSB_ACC_HEX_ACC_O =  BSB_ACC_HEX_ACC                   
       FILLER_ACC_O   =  FILLER_ACC                           
       PUT  OUTPUT                                             
   END-IF                                                       
   IF PREV_BSB NE BSB_ACC  AND PREV_BSB NE  0  AND   +         
        SGMT_CHK_CTL   =   'CNTLDTE'                           
        BSB_DTE_O      =    BSB_DTE                             
        ACC_DTE_O      =    ACC_DTE                             
        SGMT_CHK_DTE_O =    SGMT_CHK_DTE                       
        FILLER_DTE_O   =    FILLER_DTE                         
        CNTL_DTE_O     =    CNTL_DTE                           
        BROSY_DTE_O    =    BROSY_DTE                           
        BROST_DTE_O    =    BROST_DTE                           
        BRNEW_DTE_O    =    BRNEW_DTE                           
        PUT  OUTPUT                                             
   END-IF                                                       
       PREV_BSB =  BSB_ACC                                     
  DISP-TOTALS. PROC                                             
       BSB_CTL_O      =  PREV_BSB                               
       ACC_CTL_O      =  999999                                 
       SGMT_CHK_CTL_O = 'STPCTL'                               
       ITEM_COUNT_O = TOT_STPCHQ                               
       AMOUNT_CTL_O = TOT_STPAMT                               
       PUT  OUTPUT                                             
   END-PROC                                                     
                                                         






This program reads a variable block input file and writes the data to an output file. The problem that I am facing is that when the read statement gets executed, it reads the first & second record.
The input file is given below -
Code:

----+----1----+----2----+----3----
**********************************
4121100046STPACC  ...           
4121100046STPCHQ  ..c.....%......
4121106288STPACC  ..h           
4121106288STPCHQ  ..@........<..<
**********************************



Input file properties -
Organization . . . : PS
Record format . . . : VB
Record length . . . : 255

WHen we put display in our program after reading the input file, it shows the below -
Code:


4121100046STPACC           4121100046STP         
4121100046STPCHQ    c      %          41         
4121106288STPACC      h    4121106288STP         
4121106288STPCHQ     @        <  <               



The data from the second line is also coming in the display.

Please help.

Thanks in advance.
Back to top
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7228

PostPosted: Wed Jan 06, 2016 5:50 pm    Post subject: Reply to: Query regarding Easytrieve program
Reply with quote

Why code record-length and blocksize in the program?

You are DISPLAYing a fixed amount of data, no matter what the record-length. Have a look at DISPLAY filename.

Also, don't use the assignment for copying input to output, use MOVE filename TO filename.

You use = for assignment and for equality, even lining up the two different uses in the same position. Use EQ for equality.

You could also make the code clearer, rather than repeating conditions with only a NE/EQ different.
Back to top
View user's profile Send private message
shanudarling
Warnings : 1

New User


Joined: 20 Dec 2006
Posts: 55
Location: noida

PostPosted: Thu Jan 07, 2016 10:46 am    Post subject: Reply to: Query regarding Easytrieve program
Reply with quote

HI , I have changed my code as per the comments .




Code:

PARM   DEBUG(FLOW)                 
FILE MERGE                         
*   INPUT AREAS  STPACC             
      INREC            1   40   A   
      BSB_ACC          1   4  N     
      BSB_ACC_ACC      1   10 N     
      SGMT_CHK_ACC     11  6  A     
      FILLER_ACC       17  2  B     
      BSB_ACC_HEX_ACC  19  5  U     
      FILLER1          24  232 A   
*   INPUT AREAS  STPCHQ             
      BSB_ACC_CHQ      1   10 N     
      SGMT_CHK_CHQ     11  6  A     
      FILLER_CHQ       17  2  B     
      SERLNO_CHQ       19  4  P 0   
      AMOUNT_CHQ       23  6  P 2   
      STRTDT_CHQ       29  3  P 3   
      ENDDTE_CHQ       32  3  P 3   
      FILLER2          35  221 A   
*   INPUT AREAS  STPCTL             
      BSB_CTL          1   4  N     
       ACC_CTL          5   6  N             
       SGMT_CHK_CTL     11  6  A             
       FILLER_CTL       17  2  B             
       ITEM_COUNT       19  5  P 0           
       AMOUNT_CTL       24  7  P 2           
       FILLER3          31  225 A             
 *   INPUT AREAS  CNTLDTE                     
       BSB_DTE          1   4  N             
       ACC_DTE          5   6  N             
       SGMT_CHK_DTE     11  7  A             
       FILLER_DTE       18  1  B             
       CNTL_DTE         19  12 N             
       BROSY_DTE        31  3  P 0           
       BROST_DTE        34  3  P 0           
       BRNEW_DTE        37  3  P 0           
       FILLER4          40  216 A             
 FILE OUTPUT                                 
 *   OUTPUT AREAS STPACC                     
       OUTREC            1  40  A             
       BSB_ACC_O         1   4  N             
       BSB_ACC_ACC_O     1   10 N             
       SGMT_CHK_ACC_O    11  6  A             
       FILLER_ACC_O      17  2  B             

      BSB_ACC_HEX_ACC_O 19  5  U           
      FILLER5          24  232 A           
*   OUTPUT AREAS STPCHQ                     
      BSB_ACC_CHQ_O     1   10 N           
      SGMT_CHK_CHQ_O    11  6  A           
      FILLER_CHQ_O      17  2  B           
      SERLNO_CHQ_O      19  4  P 0         
      AMOUNT_CHQ_O      23  6  P 2         
      STRTDT_CHQ_O      29  3  P 3         
      ENDDTE_CHQ_O      32  3  P 3         
      FILLER6          35  221 A           
*   OUTPUT AREAS STPCTL                     
      BSB_CTL_O         1   4  N           
      ACC_CTL_O         5   6  N           
      SGMT_CHK_CTL_O    11  6  A           
      FILLER_CTL_O      17  2  B           
      ITEM_COUNT_O      19  5  P 0         
      AMOUNT_CTL_O      24  7  P 2         
      FILLER7          31  225 A           
*   OUTPUT AREAS CNTLDTE                   
      BSB_DTE_O        1   4  N             
      ACC_DTE_O        5   6  N             
      SGMT_CHK_DTE_O   11  7  A             

      FILLER_DTE_O     18  1  B                         
      CNTL_DTE_O       19  12 N                         
      BROSY_DTE_O      31  3  P 0                       
      BROST_DTE_O      34  3  P 0                       
      BRNEW_DTE_O      37  3  P 0                       
      FILLER8          40  216 A                       
*   WORK  AREA                                         
      PREV_BSB    W   4  N   VALUE(0)                   
      TOT_STPCHQ  W   7  P 0 VALUE(0)                   
      TOT_STPAMT  W   8  P 2 VALUE(0)                   
*                                                       
*                                                       
 JOB INPUT  MERGE   FINISH DISP-TOTALS                 
                                                       
*                                        FIRST RECORD   
       DISPLAY 'READ1' INREC                           
       MOVE INREC TO OUTREC                             
       PUT  OUTPUT                                     
  DISP-TOTALS. PROC                                     
    DISPLAY  '  CODE COMPLETE'                         
   END-PROC                                             

                                 



and here is the output

Code:

READ14121100046STPACC           4121100046STP   
READ14121100046STPCHQ    c      %          41   
READ14121106288STPACC      h    4121106288STP   
READ14121106288STPCHQ     @        <  <         
  CODE COMPLETE                                 


Can you please advise why records from the second line being read always .

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 -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts I can not compile my program PL1 V3.R... Miguel Fernandez PL/I & Assembler 2 Tue Dec 06, 2016 8:30 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
This topic is locked: you cannot edit posts or make replies. Db2 SQL query to convert rows into co... subratarec DB2 5 Thu Nov 17, 2016 4:51 pm
No new posts Two Selects in a single select query Rohit Umarjikar DB2 1 Fri Nov 04, 2016 8:46 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm


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