|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1778 (0x6f2)
Types: s3xseg
Names: »SCOBLPR«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SCOBLPR«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SCOBLPR«
PROCESS MAP,LIST
001010 IDENTIFICATION DIVISION.
001020 PROGRAM-ID. COBLPR.
001030 AUTHOR. H STEGEMAN.
001040 INSTALLATION. ROCHESTER PROGRAMMING DEVELOPMENT LAB.
001050 DATE-WRITTEN. JULY 12, 1974.
001060 SECURITY. NONE.
001070 REMARKS. THIS PROGRAM HAS BEEN WRITTEN AS A SAMPLE
001080 PROGRAM FOR COBOL USERS. IT WILL
001090 DISPLAY DATA TO THE LOG DEVICE AND
001100 TO THE CONSOLE.
001110 ENVIRONMENT DIVISION.
001120 CONFIGURATION SECTION.
001130 SOURCE-COMPUTER. IBM-S3.
001140 OBJECT-COMPUTER. IBM-S3.
001190 DATA DIVISION.
002180 PROCEDURE DIVISION.
002190 BEGIN-SAMPLE-PROGRAM.
002200 DISPLAY '*** BEGIN COBOL SAMPLE PROGRAM ***' UPON CONSOLE.
00230 DISPLAY ' '.
00240 DISPLAY ' '.
DISPLAY '**********************************'.
DISPLAY ' '.
DISPLAY '**********************************'.
DISPLAY ' '.
DISPLAY '**********************************'.
DISPLAY ' '.
DISPLAY ' '.
DISPLAY ' THIS COBOL SAMPLE PROGRAM IS '.
DISPLAY ' '.
DISPLAY ' EXECUTING DISPLAYS TO THE LOG '.
DISPLAY ' '.
DISPLAY ' DEVICE. THIS WAS DONE SO THAT '.
DISPLAY ' '.
DISPLAY ' THE COBOL SAMPLE PROGRAM WOULD '.
DISPLAY ' '.
DISPLAY ' REQUIRE NO CHANGES BETWEEN MOD '.
DISPLAY ' '.
DISPLAY ' 10 AND MOD 15 BECAUSE OF DEVICE '.
DISPLAY ' '.
DISPLAY ' REQUIREMENTS . . . '.
DISPLAY ' '.
DISPLAY ' '.
DISPLAY '**********************************'.
DISPLAY ' '.
DISPLAY '**********************************'.
DISPLAY ' '.
DISPLAY '**********************************'.
DISPLAY ' '.
DISPLAY ' '.
DISPLAY ' '.
00311 EXIT-PROGRAM.
00313 DISPLAY '*** END COBOL SAMPLE PROGRAM ***'.
00314 STOP RUN.