Support COBUG |
|
 |
|
|
|
|
| |
|
COBOL Language [
return
] |
|
From |
Message |
cobol27
5/04/2006
07:07:36
|
 Subject: cobol coding
Message:
1. How can you make a COBOL program respond to keyboard keys for
> example you want to scroll down over a list of option using the
*arrow
> keys* and after you have reach the option then you press the *enter
key.*
> 2. *I *wanted to know if it is possible with COBOL programming
> that you can search an indexed sequential file using the only first 3
> letters of the search key for example I want to know all drugs that
> start with ASM, and the programs list that they is asmanol 4mg,
> asmanol 2mg. If it is there how can I go about it.**
> 3. Lastly I would want to know whether it is possible to change
> the size of the output words in a Cobol program
>
|
abu_zaffar
5/04/2006
19:46:59
| RE: cobol coding
Message:
pls. find the answers below.
1. You could use the screen scetion for using arrow keys ans enter.
2. You could move the partial value to the key(e.g., 'ASM' in the key) and start the file.
3. the question is not clear
|
anbumarphan
5/05/2006
00:40:11
| RE: cobol coding
Message:
The use of arrow keys and other function keys in COBOL can be done by using a set of call routines offered by each version of COBOL. Please verify your Language/System reference manuals. When you call a particular call routine, it will accept a key stroke from keyboard and tell to your program that, which type of key (data/arrow/function etc), and the value. You may then make use of this to move the cursor or other actions.
|
cobol27
5/05/2006
02:46:17
| RE: cobol coding
Message:
THANK YOU SO MUCH FOR YOUR REPLY BUT I WAS WONDERING IF YOU COULD ADD THE EXACT POSITIONS ON MY PROGRAM BELOW. THIS IS A PHARMCAY SYSTEM WITH 28 OTHER COBOL PROGRAMS I NWROTE. SO I WAS HAVING PROBLEM
ON HOW I CAN SEARCH THE FILES USING ONLY THE FIRST 3 CHARACTERS OF THE RECORD KEY example LET’S SAY WE HAVE 5 RECORD KEYS WITH ALMOST THE SAME NAME LIKE ASMANOL 4MG, ASMNOL 2MG, ASMANOL SYRUP, ASMANOL 200MG e.t.e. SO I WOULD NEED MY PROGRAM JUST TO ENTER FIRST OR LESS THAT 3 CHARACTERS LIKE “A” OR “AS” OR “ASM” AND IT THEN SEARCHES THE FILE AND DISPLAY ALL THE RECORD KEYS OR DRUG NAMES THAT START WITH THE SAME 3 CHARACTERS THEN AFTER THAT COMES MY NEXT QUESTION.
AFTER THEY HAVE BEEN DISPLAYED I WOULD WANT TO USE THE KEYBOARD KEYS TO MOVE UP or DOWN THE DISPLAYED DRUGS USING KEYBOARD ARROW AND ATER THAT BE ABLE TO PRESS THE ENTER KEY TO SELECT INSTEAD OF USING ENTER THE CORRESPONDING CHOICE TO SELECT. SO I WOULD WANT TO KNOW HOW I WRITE OR DECRARE MY KEYS IN MY PROGRAM BELOW AND LASTLY FOR INTEREST SAKE IS IT POSSIBLE TO USE THE MOUSE.
MY THIRD QUESTION IS ON HOW CAN MAKE COBOL PROGRAM AN EXECUTABLE FILE.
WANT’S AGAIN THANK YOU FOR YOUR PREVIOUS REPLY I BELIEVE I HAVE JOINED A GROUP OF COBOL SPECIALIST. THIS SYSTEM I STARTED DEVELOPING IT BACK IN 2003 AND I JUST LOST INTEREST UNTIL RECENTLY I STARTED AGAIN WHEN THEY WAS A PHARMACY IN MY LOCAL TOWN THAT WANTED A DISPENSING SYSTEM. SO THAT’S WHY I NEED TO KNOW COBOL MORE
YOU CAN JUST AMMEND THE PROGRAMBELOW THAT IS IF YOU HAVE TIME I KNOW IT’S A BIG PROGRAM TO MAYBE FOR YOU TO FOLLOW
THANK YOU
THE OPERATING SYSTEM I AM USING IS
WINDOWS 98 [VERSION 4.10.2222], AND MS-DOS EDITOR VER 1.1 AND MY COBOL VERSION IS RM/COBOL-85COMPILER – VERSION 5.35.00 FOR DOS 2.00+.
IDENTIFICATION DIVISION.
PROGRAM-ID. CLAIM-FORM.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT Patient-File ASSIGN TO DISK
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS Patient-Surname.
SELECT Doc-File ASSIGN TO DISK
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS Doc-Name.
SELECT DRUG-FILE ASSIGN TO DISK
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS Drug-Name.
SELECT CODE-FILE ASSIGN TO DISK
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS CODE-Name.
SELECT Print-FILE ASSIGN TO disk.
SELECT Print2-File ASSIGN TO disk.
SELECT D-FILE ASSIGN TO DISK.
SELECT DOSAGE-FILE ASSIGN TO DISK.
SELECT TAKE-FILE ASSIGN TO DISK.
DATA DIVISION.
FILE SECTION.
FD Patient-File.
01 Patient-rec.
02 Patient-Surname PIC X(20).
02 Patient-Initial PIC X(5).
02 Member-Name PIC X(20).
02 Member-Number PIC X(10).
02 Patient-Scheme PIC X(15).
02 Patient-Address PIC X(60).
02 Patient-Address-X REDEFINES Patient-Address.
03 ADDRESS1 PIC X(20).
03 ADDRESS2 PIC X(20).
03 ADDRESS3 PIC X(20).
02 Doctor-Name PIC X(20).
02 Doctor-Number PIC X(6).
FD DOC-FILE.
01 DOC-REC.
02 DOC-NAME PIC X(20).
02 DOC-NUMBER PIC X(6).
FD Code-File.
01 Code-rec.
02 Code-Name PIC X(30).
02 Code-INSTRUC PIC X(140).
02 Code-INSTRU-X REDEFINES Code-INSTRUC.
03 D-LINE20 PIC X(45).
03 D-LINE21 PIC X(45).
03 D-LINE22 PIC X(45).
FD DOSAGE-FILE.
01 DOS-REC PIC X(165).
FD TAKE-FILE.
01 TAKE-REC PIC X(155).
FD Print-File.
01 PRINT-REC PIC X(70).
FD Print2-File.
01 Print2-Rec PIC X(120).
FD D-FILE.
01 D-REC PIC 9(11).
FD Drug-File.
01 Drug-rec.
02 Drug-Name PIC X(35).
02 Drug-Code PIC 9(8).
02 Manufacturer-Price PIC 9(9)V99.
02 Manufacturer-Qty PIC 9(5).
02 DOS-INSTRUC PIC X(140).
02 DOS-INSTRU-X REDEFINES DOS-INSTRUC.
03 LINE20 PIC X(40).
03 LINE21 PIC X(50).
03 LINE22 PIC X(50).
02 UNIT-PRICE PIC 9(9)V99.
WORKING-STORAGE SECTION.
01 WS-Patient-Rec.
02 WS-Patient-Surname PIC X(20).
02 WS-Patient-Initial PIC X(5).
02 WS-Member-Name PIC X(20).
02 WS-Member-Number PIC X(10).
02 WS-Scheme PIC X(15).
02 WS-Patient-Address PIC X(60).
02 WS-Patient-Address-X REDEFINES WS-Patient-Address.
03 WS-ADDRESS1 PIC X(20).
03 WS-ADDRESS2 PIC X(20).
03 WS-ADDRESS3 PIC X(20).
01 WS-GROSS-CHARGE PIC 9(8)V99.
01 WS-D-REC.
02 DISPENSING-FEE PIC 9(9)V99.
01 WS-INPUT2.
02 WS-DOC-NAME PIC X(20).
02 WS-DOC-NUM PIC X(6).
01 WS-DOS-REC.
02 D-DRUG-NAME PIC X(35).
02 D-LINE1 PIC X(40).
02 D-LINE2 PIC X(50).
02 D-LINE3 PIC X(50).
01 WS-INPUT3.
02 WS-Code-Name PIC X(30).
02 WS-Code-INSTRUC PIC X(140).
02 WS-Code-INSTRU-X REDEFINES WS-Code-INSTRUC.
03 WS-D-LINE20 PIC X(45).
03 WS-D-LINE21 PIC X(45).
03 WS-D-LINE22 PIC X(45).
01 WS-TAKE-REC.
02 K-DRUG-NAME PIC X(35).
02 K-LINE1 PIC X(40).
02 K-LINE2 PIC X(40).
02 K-LINE3 PIC X(40).
01 WS-INPUT.
02 WS-Drug-Name PIC X(35).
02 WS-Drug-Code PIC 9(8).
02 WS-Manufacturer-Price PIC 9(9)V99.
02 WS-Manufacturer-Qty PIC 9(5).
02 WS-DOS-INSTRUC PIC X(140).
02 WS-DOS-INSTRU-X REDEFINES WS-DOS-INSTRUC.
03 WS-LINE20 PIC X(40).
03 WS-LINE21 PIC X(50).
03 WS-LINE22 PIC X(50).
02 WS-UNIT-PRICE PIC 9(9)V99.
01 WS-DRUG-DOSAGE PIC X(120).
01 WS-DRUG-DOSAGE-X REDEFINES WS-DRUG-DOSAGE.
03 WS-LIN1 PIC X(40).
03 WS-LIN2 PIC X(40).
03 WS-LIN3 PIC X(40).
01 WS-print-rec.
02 p-drug-name PIC X(35).
02 p-drug-code PIC 9(8).
02 p-quantity pic 9(6).
02 p-unit-price pic 9(9)v99.
02 p-drug-price pic 9(8)v99.
01 D PIC X.
01 WS-prescription-number pic 9(7).
01 ws-print2-rec.
02 p2-member-surname pic x(20).
02 p2-member-initial pic x(3).
02 p2-patient-name pic x(22).
02 p2-scheme pic x(5).
02 p2-address.
03 P2-LINE1 pic x(10).
03 P2-LINE2 PIC X(15).
02 P2-DOC-NAME PIC X(20).
02 P2-DOC-NUM PIC X(6).
02 P2-GROSS-CHARGE PIC 9(8)V99.
02 p2-prescription-number pic 9(7).
01 WS-DATE PIC 9(6).
01 WS-DATE-X REDEFINES WS-DATE.
05 WS-DAY PIC 99.
05 WS-MONTH PIC 99.
05 WS-YEAR PIC 99.
01 EDITED-DATE.
05 ED-DAY PIC 99.
05 M-X PIC X VALUE '/'.
05 ED-MONTH PIC 99.
05 C-X PIC X VALUE '/'.
05 ED-YEAR PIC 99.
01 WS-EDITED.
02 WS-E-Drug-Price PIC $$$$$$$9.99.
02 WS-E-Qty PIC ZZZZ9.
02 WS-E-UNIT-PRICE PIC $$$$$$$$9.99.
01 WS-Qty PIC 9(6).
01 WS-Drug-Price PIC 9(8)V99.
01 PHARMACY-NUM PIC 9(5).
01 WS-PHARMACY-NAME PIC X(15).
01 PRESCRIPTION-NUM PIC X(7).
01 MEMBER-SURNAME PIC X(20).
01 MEMBER-INITIAL PIC X(3).
01 PATIENT-NAME PIC X(22).
01 SCHEME PIC X(5).
01 ADDRESS.
02 LINE1 PIC X(15).
02 LINE2 PIC X(20).
01 ANS PIC X.
01 COND PIC X.
01 NUM PIC 99.
01 PRESS-KEY PIC 9(3).
01 OUT-KEY PIC 9(3).
SCREEN SECTION.
01 CLS.
02 BLANK SCREEN.
01 PATIENT-SKRIN.
02 LINE 6 COL 25 "ENTER PATIENT DETAILS: " BLINK.
02 LINE 9 COL 12 "DOCTOR'S NAME =>" .
02 LINE 9 COL 49 "NUMBER =>" .
02 LINE 11 COL 12 "MEMBER SURNAME =>" .
02 LINE 11 COL 50 "INITIAL =>" .
02 LINE 13 COL 12 "PATIENT NAME =>" .
02 LINE 15 COL 12 "SCHEME =>" .
02 LINE 17 COL 12 "ADDRESS =>" .
02 LINE 22 COL 18 "PRESS <ENTER> TO ACCEPT" HIGHLIGHT.
01 DRUG-SKRIN.
02 LINE 6 COL 25 "ENTER DRUG DETAILS: " BLINK.
02 LINE 8 COL 12 "DRUG NAME =>" .
02 LINE 10 COL 12 "CODE =>".
02 LINE 12 COL 12 "UNIT-PRICE =>" .
02 LINE 12 COL 40 "ENTER QUANTITY =>".
02 LINE 14 COL 12 "DRUG PRICE =>" .
02 LINE 16 COL 12 "DOSAGE INSTRUCTION =>".
02 LINE 22 COL 12 "ENTER MORE RECORDS Y/N =>".
01 ACE-PATIENT-SKRIN.
02 LINE 11 COL 30 PIC X(20) USING WS-Patient-Surname.
02 LINE 11 COL 62 PIC X(4) USING WS-Patient-Initial.
02 LINE 13 COL 29 PIC X(22) USING WS-Member-Name.
02 LINE 15 COL 23 PIC X(10) USING WS-SCHEME.
02 LINE 17 COL 23 PIC X(15) USING WS-ADDRESS1.
02 LINE 18 COL 23 PIC X(20) USING WS-ADDRESS2.
02 LINE 18 COL 23 PIC X(20) USING WS-ADDRESS3.
PROCEDURE DIVISION.
MAIN-PARA.
MOVE ZERO TO P2-GROSS-CHARGE.
MOVE ZERO TO WS-prescription-number.
PERFORM OPEN-FILES.
PERFORM A10-GET-DATE.
PERFORM ACC-PARA .
PERFORM CLOSE-PARA.
OPEN-FILES.
OPEN I-O Drug-File
INPUT Code-File
INPUT DOC-FILE
OUTPUT Patient-File
OUTPUT Print-FILE
OUTPUT PRINT2-FILE
OUTPUT DOSAGE-FILE
OUTPUT TAKE-FILE
INPUT D-FILE.
READ D-FILE INTO WS-D-REC.
A10-GET-DATE.
ACCEPT WS-DATE FROM DATE.
MOVE WS-DAY TO ED-DAY.
MOVE WS-MONTH TO ED-MONTH.
MOVE WS-YEAR TO ED-YEAR.
DISPLAY ED-DAY LINE 2 COL 5.
DISPLAY M-X LINE 2 COL 7.
DISPLAY ED-MONTH LINE 2 COL 8.
DISPLAY C-X LINE 2 COL 10.
DISPLAY ED-YEAR LINE 2 COL 11.
ACC-PARA.
DISPLAY CLS.
PERFORM 200-DRAW.
DISPLAY PATIENT-SKRIN.
PERFORM Patient-Para.
PERFORM DOC-PARA.
ACCEPT ACE-PATIENT-SKRIN.
PERFORM DOC-MOVE.
MOVE MEMBER-SURNAME TO p2-member-surname.
MOVE MEMBER-INITIAL TO p2-member-initial.
MOVE PATIENT-NAME TO P2-PATIENT-NAME.
MOVE SCHEME TO P2-SCHEME.
MOVE LINE1 TO P2-LINE1.
MOVE LINE2 TO P2-LINE2.
PERFORM 300-PARA.
Patient-Para.
MOVE WS-Patient-Surname TO Patient-Surname.
MOVE WS-Patient-Initial TO Patient-Initial.
MOVE WS-Member-Name TO Member-Name.
MOVE WS-Member-Number TO Member-Number.
MOVE WS-Scheme TO Scheme.
MOVE WS-ADDRESS1 TO ADDRESS1.
MOVE WS-ADDRESS2 TO ADDRESS2
MOVE WS-ADDRESS3 TO ADDRESS3.
DOC-PARA.
ACCEPT WS-DOC-NAME LINE 9 COL 29.
MOVE WS-DOC-NAME TO DOC-Name.
READ DOC-FILE INTO WS-INPUT2 KEY IS
DOC-NAME INVALID KEY PERFORM ERRR.
DISPLAY WS-DOC-NAME LINE 9 COL 29.
DISPLAY WS-DOC-NUM LINE 9 COL 59.
DOC-MOVE.
MOVE WS-DOC-NAME TO P2-DOC-NAME.
MOVE WS-DOC-NUM TO P2-DOC-NUM.
300-PARA.
DISPLAY CLS.
PERFORM 200-DRAW.
DISPLAY DRUG-SKRIN.
ACCEPT WS-Drug-Name LINE 8 COL 27.
IF WS-Drug-Name = ' ' THEN
PERFORM ERRR2
ELSE
MOVE WS-Drug-Name TO Drug-Name.
READ DRUG-FILE INTO WS-INPUT KEY IS
Drug-Name INVALID KEY PERFORM ERRR2.
PERFORM MOVE-PARA.
DISPLAY WS-Drug-Name LINE 8 COL 27.
DISPLAY WS-Drug-Code LINE 10 COL 23.
MOVE WS-UNIT-PRICE TO WS-E-UNIT-PRICE.
DISPLAY WS-E-UNIT-PRICE LINE 12 COL 27.
ACCEPT P-QUANTITY LINE 12 COL 59.
MOVE P-QUANTITY TO WS-E-QTY.
MOVE P-QUANTITY TO WS-QTY
DISPLAY WS-E-QTY LINE 12 COL 57.
COMPUTE P-DRUG-PRICE =
(WS-UNIT-PRICE * WS-QTY) + DISPENSING-FEE.
MOVE P-DRUG-PRICE TO WS-E-DRUG-PRICE.
DISPLAY WS-E-DRUG-PRICE LINE 14 COL 27.
PERFORM CODE-PARA.
CODE-PARA.
ACCEPT WS-Code-Name LINE 17 COL 11.
IF WS-CODE-NAME = ' ' THEN
PERFORM DRUG-PARA
ELSE
MOVE WS-Code-Name TO Code-Name.
READ CODE-FILE INTO WS-INPUT3 KEY IS
Code-Name INVALID KEY PERFORM ERRR3.
PERFORM MOVE-AGAIN-PARA.
PERFORM MOVE-NOW-PARA.
PERFORM CONTINUE-PARA.
CONTINUE-PARA.
COMPUTE P2-GROSS-CHARGE =
(P2-GROSS-CHARGE + P-DRUG-PRICE).
COMPUTE WS-prescription-number =
(WS-prescription-number + 1).
ACCEPT ANS LINE 22 COL 40.
IF ANS = 'Y' OR 'y' THEN
WRITE PRINT-REC FROM WS-PRINT-REC
PERFORM REDO-PARA
ELSE
MOVE WS-prescription-number TO P2-prescription-number
WRITE PRINT-REC FROM WS-PRINT-REC
WRITE PRINT2-REC FROM WS-PRINT2-REC
CLOSE PRINT-FILE
CLOSE PRINT2-FILE
CLOSE DOSAGE-FILE
CLOSE TAKE-FILE
PERFORM ASK-PARA
PERFORM CLOSE-PARA.
DRUG-PARA.
ACCEPT WS-D-LINE20 LINE 17 COL 11.
DISPLAY WS-D-LINE20 LINE 17 COL 11.
ACCEPT WS-D-LINE21 LINE 18 COL 11.
DISPLAY WS-D-LINE21 LINE 18 COL 11.
ACCEPT WS-D-LINE22 LINE 19 COL 11.
DISPLAY WS-D-LINE22 LINE 19 COL 11.
PERFORM MOVE-AGAIN-PARA.
PERFORM CONTINUE-PARA.
MOVE-PARA.
MOVE WS-DRUG-NAME TO P-DRUG-NAME.
MOVE WS-DRUG-CODE TO P-DRUG-CODE.
MOVE-AGAIN-PARA.
MOVE WS-DRUG-NAME TO D-DRUG-NAME.
MOVE WS-D-LINE20 TO D-LINE1.
MOVE WS-D-LINE21 TO D-LINE2.
MOVE WS-D-LINE22 TO D-LINE3.
WRITE DOS-REC FROM WS-DOS-REC.
MOVE-NOW-PARA.
MOVE WS-DRUG-NAME TO K-DRUG-NAME.
MOVE WS-D-LINE20 TO K-LINE1.
MOVE WS-D-LINE21 TO K-LINE2.
MOVE WS-D-LINE22 TO K-LINE3.
WRITE TAKE-REC FROM WS-TAKE-REC.
ASK-PARA.
DISPLAY "DO YOU WANT TO PRINT THIS CLAIM-FORM [Y/N]" LINE 24 COL 4.
ACCEPT ANS LINE 24 COL 48.
IF ANS = 'Y' OR 'y' THEN
CALL 'PRINT.COB'.
ERRR.
DISPLAY "INVALID KEY" LINE 9 COL 29.
ERRR2.
DISPLAY "INVALID KEY" LINE 8 COL 27.
DISPLAY "PRESS <ENTER> TO CONTINUE OR [Q] TO QUIT"
LINE 9 COL 26.
ACCEPT D LINE 9 COL 56.
IF D = 'Q' OR 'q' THEN
PERFORM CLOSE-AGAIN-PARA
ELSE
PERFORM REDO-PARA.
ERRR3.
DISPLAY "PRESS [Y] RETRY / ENTER CONTINUE"
LINE 16 COL 34.
ACCEPT D LINE 16 COL 41.
IF D = 'Y' OR 'y' THEN
PERFORM CODE-PARA
ELSE
PERFORM DRUG-PARA.
REDO-PARA.
PERFORM 300-PARA.
CLOSE-PARA.
WRITE Patient-rec FROM WS-Patient-Rec
CLOSE Patient-File.
CLOSE DRUG-FILE.
CLOSE CODE-FILE.
CLOSE DOC-FILE.
CLOSE D-FILE.
EXIT PROGRAM.
CLOSE-AGAIN-PARA.
WRITE Patient-rec FROM WS-Patient-Rec
CLOSE Patient-File.
CLOSE DRUG-FILE.
CLOSE DOC-FILE.
CLOSE PRINT-FILE
CLOSE PRINT2-FILE
CLOSE DOSAGE-FILE
CLOSE TAKE-FILE
CLOSE D-FILE.
EXIT PROGRAM.
200-DRAW.
DISPLAY
"LQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ",
lINE 1, Position 1, Control, "HIGH, Graphics"
DISPLAY
"QQQQQQQQQQQQQQQQQQQQQQQQQQQQK",
lINE 1, Position 50, Control, "HIGH, Graphics"
Move 2 To Num
Perform Varying Num From Num By 1 Until Num = 23
DISPLAY
"X",
lINE Num, Position 1, Control, "HIGH, Graphics"
DISPLAY
"X",
lINE Num, Position 78, Control, "HIGH, Graphics"
End-Perform
DISPLAY
"MQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ",
LINE 23, Position 1, Control, "HIGH, Graphics".
DISPLAY
"QQQQQQQQQQQQQQQQQQQQQQQQQQQQJ",
LINE 23, Position 50, Control, "HIGH, Graphics".
DISPLAY "MANICA PHARMACY (PVT)Ltd" LINE 2 COL 2.
DISPLAY "SUPERDISPENSER" LINE 2 COL 58.
DISPLAY "DRUG DISPENSING SYSTEM" LINE 22 COL 50.
DISPLAY
"lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk",
lINE 5, Position 10, Control, "HIGH, Graphics"
Move 6 To Num
Perform Varying Num From Num By 1 Until Num = 20
DISPLAY
"x x",
lINE Num, Position 10, Control, "HIGH, Graphics"
End-Perform
DISPLAY
"mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj",
LINE 20, Position 10, Control, "HIGH, Graphics".
DISPLAY "Data Capture Screen" LINE 4 COL 24 .
|
| |
| P 1 Next Page >> | | | |
|
|
|
[ Go to Top of Page ]
|
|
|
|
Local COBOL User Groups |
Check out the list of local COBOL user groups from around the world and join a user group near you.
|
|
|
Call for User Group Leaders! |
Get Involved! We are looking for user group
leaders to help organize and coordinate a local COBOL user group.
|
|
|
Join COBUG! |
Become a part of the COBUG community today.
Join Now ...
|
|
|
COBOL Forums |
Try our forums for help!
Let the COBUG members help you.
Post your issues!
|
|
|
COBOL Job Resources |
Here are references to a wealth of
job resources, including job listing sites, resume preparation, and interview questions.
|
|
|
Job and Resume Matchmaker! |
Employers submit your COBOL job openings.
Job seekers submit your resumes.
|
|
|
