IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Employees working in a company starting with the name 'A'


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
dhivakarram

New User


Joined: 27 Jul 2006
Posts: 5
Location: chennai

PostPosted: Fri Aug 04, 2006 3:39 pm
Reply with quote

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
View user's profile Send private message
muthuvel

Active User


Joined: 29 Nov 2005
Posts: 217
Location: Canada

PostPosted: Fri Aug 04, 2006 3:51 pm
Reply with quote

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
View user's profile Send private message
priyesh.agrawal

Senior Member


Joined: 28 Mar 2005
Posts: 1448
Location: Chicago, IL

PostPosted: Fri Aug 04, 2006 7:14 pm
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts PD not working for unsigned packed JO... DFSORT/ICETOOL 5
No new posts Def PD not working for unsigned packe... JCL & VSAM 3
No new posts list pds members name starting with xyz CLIST & REXX 11
No new posts ICETOOL with JOINKEY for Big record l... DFSORT/ICETOOL 12
No new posts JCL JOB Cancel/Purge Not Working JCL & VSAM 6
Search our Forums:

Back to Top