000100 Identification DIvision.
000200 Program-Id. ED01PGM.
000300*----------------------------------------------
000400* Exercise 1, Part 1
000500*----------------------------------------------
000600 Data Division.
000700 Working-Storage Section.
000800
000900 01 Cursor-Placment.
001000    05 Cursor-Row    Pic 9(04) Binary Value 0.
001100    88 Cursor-Row10                   Value 800.
001200    88 Cursor-Row15                   Value 1120.
001300
001400 01 TheMessage  Pic X(80) Value Space.
001500    88 Msg1     Value 'This is exercise 1'.
001600    88 Msg2     Value 'Best Regards Peter'.
001700
001800 Procedure Division.
001900     Perform Clear-Screen
002000
002100     Set Cursor-Row10 to True
002200     Perform Place-Cursor
002300
002400     Set Msg1 to True
002500     Perform Send-Message
002600
002700     Set Cursor-Row15 to True
002800     Perform Place-Cursor
002900
003000     Set Msg2 to True
003100     Perform Send-Message
003200
003300     Perform Return-CICS
003400     .
003500*----------------------------------------------
003600 Send-Message.
003700*----------------------------------------------
003800     Exec CICS
003900          Send
004000          From(TheMessage)
004100     End-Exec
004200     .
004300*----------------------------------------------
004400 Clear-Screen.
004500*----------------------------------------------
004600     Exec CICS
004700          Send
004800          Control
004900          Erase
005000     End-Exec
005100     .
005200*----------------------------------------------
005300 Place-Cursor.
005400*----------------------------------------------
005500     Exec CICS
005600          Send
005700          Control
005800          Cursor(Cursor-Row)
005900     End-Exec
006000     .
006100*----------------------------------------------
006200 Return-CICS.
006300*----------------------------------------------
006400
006500     Exec CICS
006600          Return
006700     End-Exec
006900     .
007000 End Program ED01PGM.
007100*----------------------------------------------