View previous topic :: View next topic
|
Author |
Message |
dhivakarram
New User
Joined: 27 Jul 2006 Posts: 5 Location: chennai
|
|
|
|
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 :( |
|
Back to top |
|
|
muthuvel
Active User
Joined: 29 Nov 2005 Posts: 217 Location: Canada
|
|
|
|
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.
Issues if any please let me know,
Thanks,
Muthuvel. |
|
Back to top |
|
|
priyesh.agrawal
Senior Member
Joined: 28 Mar 2005 Posts: 1448 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. |
|
|
Back to top |
|
|
|