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.
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