cobol screens l.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
COBOL Screens PowerPoint Presentation
Download Presentation
COBOL Screens

Loading in 2 Seconds...

play fullscreen
1 / 8

COBOL Screens - PowerPoint PPT Presentation


  • 407 Views
  • Uploaded on

COBOL Screens. Please use speaker notes for additional information!. Scrntest.cbl. IDENTIFICATION DIVISION. PROGRAM-ID. SCROCCUR. AUTHOR. GROCER. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INPUT-FILE

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about 'COBOL Screens' - Anita


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
cobol screens

COBOL Screens

Please use speaker notes for additional information!

slide2

Scrntest.cbl

IDENTIFICATION DIVISION.

PROGRAM-ID. SCROCCUR.

AUTHOR. GROCER.

ENVIRONMENT DIVISION.

INPUT-OUTPUT SECTION.

FILE-CONTROL.

SELECT INPUT-FILE

ASSIGN TO "C:\PCOBWIN\CIS12FST\SCR1.DAT".

DATA DIVISION.

FILE SECTION.

FD INPUT-FILE

DATA RECORD IS INPUT-REC.

01 INPUT-REC.

05 ID-IN PIC XXXX.

05 NAME-IN PIC X(20).

WORKING-STORAGE SECTION.

01 INDICATORS.

05 EOF-IND PIC XXX VALUE "NO ".

01 RESPONSES.

05 SCR-RESP-WS PIC X VALUE SPACES.

05 CUR PIC 99 VALUE 4.

05 CT PIC 9 VALUE 0.

Information from the screen is stored here.

Responses used in processing.

slide3

Scrntest.cbl

Header information displayed at the top of the screen.

SCREEN SECTION.

01 DATA-SCREEN.

05 HDR-INFO.

10 VALUE "DATA SCREEN" BLANK SCREEN

LINE 01 COL 30.

10 VALUE "ID #" LINE 03 COL 12.

10 VALUE "NAME" LINE 03 COL 17.

05 INFO-SCR-IN.

10 ID-ON-SCR-IN LINE CUR COL 12

PIC XXXX FROM ID-IN.

10 NAME-ON-SCR-IN LINE CUR COL 17

PIC X(20) FROM NAME-IN.

05 RESP-INFO.

10 VALUE "C - TO CONTINUE" LINE 16 COL 30.

10 VALUE "Q - TO QUIT" LINE 17 COL 30.

10 VALUE "ENTER CHOICE:" LINE 19 COL 30.

10 RESPONSE-SCR LINE 19 COL 45

PIC X TO SCR-RESP-WS.

PROCEDURE DIVISION.

MAINLINE.

PERFORM A-100-INITIALIZE.

PERFORM B-100-PROCESS.

PERFORM C-100-TERMINATE.

STOP RUN.

Detail information displayed on the current line. Note that CUR is set to 4 and will be incremented so the first line is displayed on line 5.

This structure allows the programmer to display multiple copies of INFO-SCR-IN.

The user will enter either C to continue or Q to quit when the RESP-INFO portion of the screen is displayed.

slide4

Screen showing output

HDR-INFO

INFO-SCR-IN

RESP-INFO

slide5

Scrntest.cbl

Performs the routine which will put up the repeating lines of information until either CT which counts the record is greater than 4, or EOF is reached or the user quits.

A-100-INITIALIZE.

OPEN INPUT INPUT-FILE.

B-100-PROCESS.

READ INPUT-FILE

AT END

MOVE "YES" TO EOF-IND.

PERFORM B-200-LOOP

UNTIL EOF-IND = "YES" OR SCR-RESP-WS = "Q".

B-200-LOOP.

MOVE 4 TO CUR.

MOVE 0 TO CT.

DISPLAY HDR-INFO.

PERFORM B-300-SETUP

UNTIL CT > 4 OR EOF-IND = "YES" OR SCR-RESP-WS = "Q".

DISPLAY RESP-INFO.

ACCEPT RESP-INFO.

B-300-SETUP.

ADD 1 TO CUR.

ADD 1 TO CT.

DISPLAY INFO-SCR-IN.

READ INPUT-FILE

AT END

MOVE "YES" TO EOF-IND.

C-100-TERMINATE.

CLOSE INPUT-FILE.

Displays the header information on the screen.

When the B-300-SETUP loop is finished, the response screen is displayed and the user response is accepted. This ends the pass through the B-200-LOOP,

In this B-300-SETUP loop,1 is added to the current line, CUR and to the CT which is counting the records. Then the information is displayed and another record is read.

slide6

IDENTIFICATION DIVISION.

PROGRAM-ID. SCROCCUR.

AUTHOR. GROCER.

ENVIRONMENT DIVISION.

INPUT-OUTPUT SECTION.

FILE-CONTROL.

SELECT INPUT-FILE

ASSIGN TO "C:\PCOBWIN\CIS12FST\SCR1.DAT".

DATA DIVISION.

FILE SECTION.

FD INPUT-FILE

DATA RECORD IS INPUT-REC.

01 INPUT-REC.

05 ID-IN PIC XXXX.

05 NAME-IN PIC X(20).

WORKING-STORAGE SECTION.

01 INDICATORS.

05 EOF-IND PIC XXX VALUE "NO ".

01 RESPONSES.

05 SCR-RESP-WS PIC X VALUE SPACES.

05 CUR PIC 99 VALUE 4.

05 SUBZ PIC 9 VALUE 0.

01 DATA-FOR-SCREEN.

05 INFO-FOR-SCR OCCURS 5 TIMES.

10 ID-IN-WS PIC XXXX.

10 NAME-IN-WS PIC X(20).

Scroccur.cbl

slide7

01 DATA-FOR-SCREEN.

05 INFO-FOR-SCR OCCURS 5 TIMES.

10 ID-IN-WS PIC XXXX.

10 NAME-IN-WS PIC X(20).

Scroccur.cbl

SCREEN SECTION.

01 DATA-SCREEN.

05 HDR-INFO.

10 VALUE "DATA SCREEN" BLANK SCREEN

LINE 01 COL 30.

10 VALUE "ID #" LINE 03 COL 12.

10 VALUE "NAME" LINE 03 COL 17.

05 INFO-SCR-IN.

10 ID-ON-SCR-IN LINE CUR COL 12

PIC XXXX FROM ID-IN-WS (SUBZ).

10 NAME-ON-SCR-IN LINE CUR COL 17

PIC X(20) FROM NAME-IN-WS (SUBZ).

05 RESP-INFO.

10 VALUE "C - TO CONTINUE" LINE 16 COL 30.

10 VALUE "Q - TO QUIT" LINE 17 COL 30.

10 VALUE "ENTER CHOICE:" LINE 19 COL 30.

10 RESPONSE-SCR LINE 19 COL 45

PIC X TO SCR-RESP-WS.

PROCEDURE DIVISION.

MAINLINE.

PERFORM A-100-INITIALIZE.

PERFORM B-100-PROCESS.

PERFORM C-100-TERMINATE.

STOP RUN.

slide8

A-100-INITIALIZE.

OPEN INPUT INPUT-FILE.

B-100-PROCESS.

READ INPUT-FILE

AT END

MOVE "YES" TO EOF-IND.

PERFORM B-200-LOOP

UNTIL EOF-IND = "YES" OR SCR-RESP-WS = "Q".

B-200-LOOP.

MOVE 4 TO CUR.

MOVE 0 TO SUBZ.

DISPLAY HDR-INFO.

PERFORM B-300-SETUP

UNTIL SUBZ > 4 OR EOF-IND = "YES" OR SCR-RESP-WS = "Q".

DISPLAY RESP-INFO.

ACCEPT RESP-INFO.

B-300-SETUP.

ADD 1 TO SUBZ.

ADD 1 TO CUR.

MOVE ID-IN TO ID-IN-WS(SUBZ).

MOVE NAME-IN TO NAME-IN-WS (SUBZ).

DISPLAY INFO-SCR-IN.

READ INPUT-FILE

AT END

MOVE "YES" TO EOF-IND.

C-100-TERMINATE.

CLOSE INPUT-FILE.

Scroccur.cbl

The record that was read is in ID-IN and NAME-IN> These two fields are now moved to the table in WORKING-STORAGE that provides the information to the screen. A information is moved to the table, it is displayed on the screen.