mannurusrinivasulareddy

 Profile Answers by mannurusrinivasulareddy Questions by mannurusrinivasulareddy

• Oct 5th, 2011

 

Here is the answer for your question

Code
IDENTIFICATION DIVISION.


PROGRAM-ID. RECCNT.


ENVIRONMENT DIVISION.


INPUT-OUTPUT SECTION.


FILE-CONTROL.


    SELECT IN-FILE1 ASSIGN TO DD1


    FILE STATUS IS WS-ST1.


DATA DIVISION.


FILE SECTION.


FD IN-FILE1.


01 REC1                    PIC X(80).


WORKING-STORAGE SECTION.


01 WS-REC-CNT              PIC 9(02) VALUE IS 0.


01 EOF                     PIC X     VALUE IS SPACES.


    88 EOF-Y                         VALUE IS 'Y'.


    88 EOF-N                         VALUE IS 'N'.


01 WS-ST1                  PIC X(02) VALUE IS SPACES.


PROCEDURE DIVISION.


MAIN-PARA.


    OPEN INPUT IN-FILE1.


    PERFORM READ-PARA UNTIL EOF-Y.


    DISPLAY 'NO OF RECORDS IN FILE ARE  : ' WS-REC-CNT.


    CLOSE IN-FILE1.


    GOBACK.


 


 


READ-PARA.


    READ IN-FILE1 AT END SET EOF-Y TO TRUE


                 NOT AT END


                 ADD 1 TO WS-REC-CNT.


 


 


 


JCL CODE.


 


//xxxxxT JOB 'ACCOUNTING INFO',


//             CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID


//STEP1 EXEC PGM=RECCNT


//STEPLIB DD DSN=xxxxx.1234.LOADMVS,DISP=SHR


//DD1 DD DSN=xxxxx.1234.FILEPGM1,DISP=SHR


//SYSPRINT DD SYSOUT=*


//SYSOUT DD SYSOUT=*


//*