COBOL Programmer's Notebook
COBOL is making a comeback! There's a shortage of COBOL programmers to maintain millions of business-critical COBOL applications -- and to fix critical Y2K bugs. This easy-to-use tutorial/reference is perfect for programmers who want to refresh their COBOL skills -- or learn new ones. COBOL Programmer's Notebook's unique dual-page format places code examples on the right, with annotations and explanations on the left -perfect for programmers who say "Show me the code and help me figure out the rest". Best-selling author Jim Keogh walks through every important element of COBOL programming, including working with the editor, compiler and linker; variables, constants, operators and expressions; arrays; program control; data structures; data input; I/O; indexed files, printed output and functions. There's a full chapter dedicated specifically to identifying and fixing Y2K problems.
23 pages matching level 01 in this book
Results 1-3 of 23
What people are saying - Write a review
We haven't found any reviews in the usual places.
Changing the Currency Symbol
20 other sections not shown
000100 IDENTIFICATION DIVISION 000300 ENVIRONMENT DIVISION 000600 WORKING-STORAGE SECTION 01 CONTACT-RECORD 05 FILLER PIC 05 FILLER PICX(1 05 LINE 05FNAME 25 VALUE ACCEPT LNAME access mode alphanumeric variable array ASSIGN TO MYFILE.DAT ASSIGN-VALUES called program century digits chapter COBOL program column compiler COMPUTE create currency sign DATA DIVISION data structure defined display command DISPLAY Enter DISPLAY-VALUES EBCDIC END-IF error example executed file descriptor FILE SECTION FILE-CONTROL FNAME ID-NUM identify indexed file INPUT-DATA INPUT-OUTPUT SECTION keyboard Last Name level 01 logical definition login loop member variables menu merged records move command numeric variable OLD-FILE operator ORGANIZATION IS SEQUENTIAL paragraph perform command phrase physical file PIC 9 VALUE PIC clause PIC X(5 PICK-1 PIC printed PROCEDURE DIVISION PROGRAM-ID PTR-FILE PTR-REC BEFORE ADVANCING Read data record number RECORDS ARE STANDARD relational expression relative file screen sentence sequential file specified statement statement block STOP RUN STOP-MY-PROGRAM stored VALUE SPACES WRITE PTR-REC