how to retrive, how many of the employees working in a company starting with the name A (eg:-arun,aakash likewise) from a emolyee file using mvs cobol. without using any sql or jcl its should be done with pure cobol.
:( anybody plz help me :(
hi,
Suppose if the ws-name is PIC X(9) redefine it as ws-initial as PIC X(1) and ws-remainder PIC X(8) .So in the cobol program compare
ws-initial='A' .
Hence the names with starting letter 'A' could be retreived.
Joined: 28 Mar 2005 Posts: 1509 Location: Chicago, IL
Another Way...
Code:
READ INPUT FILE INTO WS-EMP-REC.
PERFORM PROCESS UNTIL END-OF-FILE.
PROCESS.
IF WS-EMP-NAME(1:1) = 'A'
WRITE OUTPUT.
ADD 1 TO OUT-A-COUNTER.
ELSE
ADD 1 TO NON-A-COUNTER.
END-IF.
EXIT.
DISPLAY 'TOTAL EMPLOYEES WITH NAME STARTING FROM A' OUT-A-COUNTER.
