pdemby

pdemby / performvsgoto2.cob

Last active August 29, 2015 14:02

	IDENTIFICATION DIVISION.
	PROGRAM-ID. CRAZY_CODE_CAFE.
	DATA DIVISION.
	WORKING-STORAGE SECTION.
	PROCEDURE DIVISION.
	ENTER-ROUTINE.
	PERFORM APPETIZER THRU MAIN-COURSE.
	DISPLAY "PAY CHECK".
	STOP RUN.
	APPETIZER.

pdemby / performvsgoto.cob

Last active August 29, 2015 14:02

pdemby / prfiles.cob

Last active August 29, 2015 14:02

	PROCEDURE DIVISION.
	OPEN-ROUTINE.
	OPEN INPUT EMPLOYEE-INPUT-FILE.
	OPEN OUTPUT EMPLOYEE-OUTPUT-FILE.
	READ-ROUTINE.
	READ EMPLOYEE-INPUT-FILE
	AT END GO TO CLOSE-ROUTINE.
	MOVE EMPLOYEE-INPUT-LASTNAME TO EMPLOYEE-OUTPUT-LASTNAME.
	MOVE EMPLOYEE-INPUT-LASTNAME TO EMPLOYEE-OUTPUT-LASTNAME.
	MOVE EMPLOYEE-INPUT-HOURLY-RATE TO EMPLOYEE-OUTPUT-HOURLY-RATE.

pdemby / fd.cob

Last active August 29, 2015 14:02

	DATA DIVISION.
	FILE SECTION.

	FD EMPLOYEE-INPUT-FILE RECORD CONTAINS 80 CHARACTERS
	VALUE OF FILE-ID IS WS-INPUT-FILE.
	01 EMPLOYEE-INPUT-RECORD.
	05 EMPLOYEE-INPUT-LASTNAME PIC X(30).
	05 EMPLOYEE-INPUT-FIRSTNAME PIC X(20).
	05 EMPLOYEE-INPUT-HOURLY-RATE PIC 9(3)V99.
	05 FILLER PIC X(25).

pdemby / select.cob

Last active August 29, 2015 14:02

	ENVIRONMENT DIVISION.
	INPUT-OUTPUT SECTION.
	FILE-CONTROL.

	SELECT EMPLOYEE-INPUT-FILE
	ASSIGN TO DISC
	ORGANIZATION IS LINE SEQUENTIAL
	ACCESS MODE IS SEQUENTIAL.

	SELECT EMPLOYEE-OUTPUT-FILE

pdemby / basics.cob

Last active August 29, 2015 14:02

pdemby / hello_world.cob

Last active August 29, 2015 14:02