Logo 
Search:

Cobol Articles

Submit Article
Home » Articles » Cobol » Homework HelpRSS Feeds

HDFC Bank HAVE information of their Account Holders in Sequential file 'accounts.mst’ :For year 2001, print report listing Month No., Month Name etc.

Posted By: Vinicius Costa     Category: Cobol     Views: 4352

HDFC Bank HAVE information of their Account Holders in Sequential file 'accounts.mst’ :For year 2001, print report listing Month No., Month Name and Total number of accounts opened in the month.

Code for HDFC Bank HAVE information of their Account Holders in Sequential file 'accounts.mst’ :For year 2001, print report listing Month No., Month Name etc. in Cobol

      IDENTIFICATION DIVISION.
      PROGRAM-ID. NA1.
      ENVIRONMENT DIVISION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
         SELECT INPFILE ASSIGN TO DISK
         ORGANIZATION IS LINE SEQUENTIAL.  
         
         SELECT OUTFILE ASSIGN TO DISK
         ORGANIZATION IS LINE SEQUENTIAL.  


      DATA DIVISION.
      FILE SECTION.
      FD INPFILE
         LABEL RECORDS ARE STANDARD
         VALUE OF FILE-ID IS "MACC.MST".

         01 REC1.
             02 ACCNO PIC 9(5).
             02 HLDNAME PIC X(25).
             02 DATE1.
                05 DD PIC 99.
                05 MM PIC 99.
                05 YY PIC 9999.
      FD OUTFILE
         LABEL RECORDS ARE STANDARD
         VALUE OF FILE-ID IS "MACC1.MST".

         01 REC2.
            02 MNO2 PIC 99.
            02 FILLER PIC X(8).
            02 MNAME2 PIC X(24).
            02 FILLER PIC X.
            02 TOTAL1 PIC 99.
      WORKING-STORAGE SECTION.

         01 PLINE PIC X(50) VALUE ALL "-".
         01 PHEAD.    
            02 MNO PIC X(5) VALUE "MONTH".
            02 FILLER PIC X(5).
            02 HLDNAME PIC X(13) VALUE "NAME OF MONTH".
            02 FILLER PIC X(5).
            02 HTOTACC PIC X(9) VALUE "TOTAL A/C".
         01 EOF PIC X VALUE "N".
         01 CNT PIC 99.
         01 MNAME PIC X(50) VALUE "JAN FEB MAR APR MAY JUN JUL AUG SEP
     -    " OCT NOV DEC".
         01 MONNAME REDEFINES MNAME PIC X(4) OCCURS 12 TIMES.
         01 TOTAL PIC 9999 OCCURS 12 TIMES.

      PROCEDURE DIVISION.
      PARA1.
         OPEN INPUT INPFILE.
      
         PERFORM VARYING CNT FROM 1 BY 1 UNTIL CNT>12
            MOVE 0 TO TOTAL(CNT)
         END-PERFORM.
         PERFORM UNTIL EOF="Y"
         READ INPFILE 
         AT END MOVE "Y" TO EOF
         NOT AT END 

         IF YY = 2001

         PERFORM VARYING CNT FROM 1 BY 1 UNTIL CNT>12
         IF CNT=MM
            COMPUTE TOTAL(CNT) = TOTAL(CNT) + 1
         END-IF
         END-PERFORM
         END-IF
         END-READ
         END-PERFORM.
        
            OPEN OUTPUT OUTFILE.
            WRITE REC2 FROM PLINE.
            WRITE REC2 FROM PHEAD.
            WRITE REC2 FROM PLINE.
         PERFORM VARYING CNT FROM 1 BY 1 UNTIL CNT>12
            MOVE SPACE TO REC2
            MOVE CNT TO MNO2
            MOVE MONNAME(CNT) TO MNAME2
            MOVE TOTAL(CNT) TO TOTAL1
            WRITE REC2 BEFORE ADVANCING 1 LINE
          END-PERFORM.
          CLOSE INPFILE.
          CLOSE OUTFILE.
          STOP RUN.
     
/***********************************************************************************************
INPUT FILE (MAAC.MST)
***********************************************************************************************/
01 PREMKIRAN 21022001F 02 VISHAL 12052001F 03 KHILAN 01062001F 04 RASHMI 11072001F 05 HETAL 10032001F 06 HARESH 02122001M 07 TRUPESH 08112001M 08 ANISHA 07112001M /***********************************************************************************************
OUTPUT FILE (MACC1.MST)
***********************************************************************************************/
-------------------------------------- MONTH NAME OF MONTH TOTAL A/C ------------------------------------- 01 JAN 00 02 FEB 01 03 MAR 01 04 APR 00 05 MAY 01 06 JUN 01 07 JUL 01 08 AUG 00 09 SEP 00 10 OCT 00 11 NOV 01 12 DEC 01
  
Share: 



Vinicius Costa
Vinicius Costa author of HDFC Bank HAVE information of their Account Holders in Sequential file 'accounts.mst’ :For year 2001, print report listing Month No., Month Name etc. is from Salvador, Brazil.
 
View All Articles

 
Please enter your Comment

  • Comment should be atleast 30 Characters.
  • Please put code inside [Code] your code [/Code].

 
No Comment Found, Be the First to post comment!