 |
UV Software has a complete solution for conversion of mainframe
MVS or VSE JCL, COBOL, & DATA batch systems to Unix, Linux, or Windows/SFU.
Over 50 successful conversions including global corporations & government agencies.
Please see demo conversions & detailed explanations at:
www.uvsoftware.ca
You may send samples of your files for conversion & return by email.
You may download 1 free utility from:
www.uvsoftware.ca/ libuvhd.htm
'uvhd' displays data files with packed/binary fields in 'vertical hexadecimal',
and includes many interactive functions (browse, search, select, update, print, etc).
|
 |
COBOL Report Generator |
|
Print graphical COBOL reports in Windows with
RPV Reports.
Insert graphics (images, photos, logos, charts, etc.) into your COBOL reports
to improve the print quality of your COBOL reports.
See how RPV Reports can be used to preview or print graphical COBOL reports in Windows. |
|
|
COBOL Documentation |
|
Are your mainframe COBOL applications properly documented?
DCD III
is a comprehensive COBOL documentation and application
understanding tool that will allow you to reduce COBOL maintenance,
development, and mainframe migration costs.
Learn more about how you can document and understand your mainframe COBOL
applications with DCD III. |
|
|
COBOL Email List Rental |
|
You can reach a highly targeted, qualified, opt-in audience of
COBOL users by renting the COBUG email list.
Contact us today advertise@cobug.com for our email list rental rates.
|
|
|
Website Advertisement |
|
Advertise on the
COBUG website and reach tens of thousands of COBOL users. Increase
your COBOL sales leads.
Contact COBUG at advertise@cobug.com for advertising rates.
|
|
|
|
|
|
|
| |
Contributed by: James Lemmon, JWL Software, Johannesburg, South Africa
Here is a program that I use for reading from a COM port. This has been used in a few different compilers so hopefully it will work for you without many amendments.
000170 SELECT SCALES ASSIGN W02-SCALES
000300 ORGANIZATION LINE SEQUENTIAL
000180 STATUS WS-STATUS
000310 ACCESS SEQUENTIAL.
.
.
.
000530 FD SCALES LABEL RECORD OMITTED.
000550 01 SCA-REC.
03 SCA-LINE PIC X(30).
01 SCA-REC2.
03 SCA-CHAR1 PIC X(01).
03 SCA-CHAR2-30 PIC X(29).
01 SCA-REC3.
03 SCA-KG PIC 9(03).
03 SCA-DEC PIC X(01).
03 SCA-GRAM PIC 9(03).
03 FILLER PIC X(23).
.
.
.
01 W02-FILE-IDS.
03 W02-SCALES PIC X(04) VALUE "COM2".
.......This can be any of the com ports.
.
.
.
01 SCALE-QUANTITY.
03 SCALE-PORT.
05 SCALE-NO PIC X(04).
03 SCALE-QUANT.
05 SCALE-WEIGHT.
07 SCALE-QNT PIC 9(09)V999.
05 SCALE-WEIGHT2 REDEFINES SCALE-WEIGHT.
07 SCALE-KG PIC 9(09).
07 SCALE-GR PIC 9(03).
.
.
.
001230 PROCEDURE DIVISION USING SCALE-QUANTITY.
001220 AA000 SECTION.
001230 AA00.
MOVE ZERO TO SCALE-QNT.
MOVE SCALE-NO TO W02-SCALES.
042140 OPEN I-O SCALES.
003050 IF NOT (WS-STATUS = "00" OR "41")
GO TO AA999.
001340 AA05.
READ SCALES.
AA10.
IF NOT (SCA-CHAR1 = "+" OR "-")
MOVE SCA-CHAR2-30 TO SCA-REC
IF SCA-REC = SPACES
GO TO AA999
ELSE
GO TO AA10.
MOVE SCA-CHAR2-30 TO SCA-REC.
IF SCA-REC = SPACES
GO TO AA999.
MOVE SCA-KG TO SCALE-KG.
MOVE SCA-GRAM TO SCALE-GR.
001830 CLOSE SCALES.
AA999.
EXIT-PROGRAM.
|
|
[ Go to Top of Page ]
|
|
|
|
COBOL Job Seekers |
Looking for a COBOL job? Submit your resume here and have it viewed by employers and recruiters hiring for COBOL positions.
|
|
|
Employers & Recruiters |
Do you need to fill a COBOL position? Post your COBOL jobs here and find the most qualified COBOL candidates to fill your COBOL position.
|
|
|
Call for Articles |
Articles are being sought for the COBUG newsletters.
Will you help us in our efforts to provide newsletters for the COBOL community at large?
Contribute to the COBUG newsletters! Answer this call for COBOL and related legacy articles. |
|
|
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!
|
|
|
