Manual de cobol

Document Revision History

|Revision |Date Saved |Created/Changed by |Changes made |
|ID | | | |
|1.0 |03-28-02 |Bernardo Montes |Initial Draft.|
| | | | |
| | | | |
| | | ||
| | | | |
| | | | |
| | || |
| | | | |






















© Copyright 2002 by
Bernardo Montes
2681 Caliendo Circle
Montgomery IL, 60538
(630) 892-0320
Table of Contents

Introduction 4

CICS 5MAPS 5

Map Attributes: 5

BMS MAP 5

SEND MAP 7

SEND MAP AND DATA 7

SEND MAP DATAONLY 7

SEND MAP MAPONLY 7

RECEIVE MAP 7

SEND MESSAGES TO A TERMINAL 7

RETURN 8

FORMATTIME 8

FORMATTIME options. 9

TEMPORARY STORAGE (TS) 9

WRITE a TS QUEUE. 10

REWRITE a TS QUEUE. 10

READ a TS QUEUE. 10

TRANSIENT DATA (TD) 11

WRITE a TD QUEUE.11

READ a TD QUEUE. 11

DELETE a TD QUEUE. 11

ENQ. 11

DEQ. 11

FILE CONTROL 11

FILE CONTROL COMMANDS 12
READ COMMAND 12
WRITE COMMAND 12
READ FOR UPDATE COMMAND 12
REWRITE COMMAND 12
DELETE COMMAND 13
STARTBR COMMAND 13
READNEXT COMMAND 13
READPREV COMMAND 13
END BROWSE(ENDBR) COMMAND 14

USING SQL TO ACCESS DB2 DATA 14SELECT STATEMENT 14

INSERT STATEMENT 14

UPDATE STATEMENT 14

DELETE STATEMENT 14

DECLARE CURSOR STATEMENT 15

OPEN CURSOR STATEMENT 15

FETCH STATEMENT 15

CLOSE CURSOR STATEMENT 15

BROWS PROGRAM 16

BMS MAP IAM024O (LEFT PAGE) 16

BMS MAP IAM026O (RIGHT PAGE) 19

COMMAREA IACS00O 21

CONTROL COPYBOOK IACS020 21

BROWSE PROGRAM IA2S240 24COPYBOOKS PROGRAM IA2S240 37

SCREENS (MAPS) PROGRAM IA2S240 61

Introduction




These document was wrote in order to give us a good reference that how programming languages has been using and how we can apply these to our daily JOB.

Please feel free to modify the current examples, add new ones or tricks that make more accurate this document.



CICS


This section containsthe basic CICS commands with examples of each of one; those examples were extracted from real programs.

MAPS

Maps define formatted screens that are user’s input and output in an online environment. Maps are used to send information to and receive data from screen.

Map Attributes:


• ASKIP: The cursor Skips over fields with this attribute.
• UNPROT(ected): A field the cursorwill stop at so that the terminal operator can enter data.
• PROT(ected): This attribute sometimes immediately follows an unprotected field; data entry will be inhibited when this attribute is encountered.
• BRT(BRighTer Intensity): A field displayed at a brighter intensity than normal. Messages and fields identifiers of erroneous entries are highlighted.
• NORM(NORMal Intensity):...