|
000100 IDENTIFICATION DIVISION. SQ3024.2
000200 PROGRAM-ID. SQ3024.2
000300 SQ302M. SQ3024.2
000400*THE FOLLOWING PROGRAM TESTS THE FLAGGING OF SQ3024.2
000500*OBSOLETE FEATURES THAT ARE USED IN MINIMUM SUBSET SQ3024.2
000600*SEQUENTIAL INPUT-OUTPUT. SQ3024.2
000700 ENVIRONMENT DIVISION. SQ3024.2
000800 CONFIGURATION SECTION. SQ3024.2
000900 SOURCE-COMPUTER. SQ3024.2
001000 Card0130. SQ3024.2
001100 OBJECT-COMPUTER. SQ3024.2
001200 Card0131. SQ3024.2
001300 INPUT-OUTPUT SECTION. SQ3024.2
001400 FILE-CONTROL. SQ3024.2
001500 SELECT TFIL ASSIGN SQ3024.2
001600 "C0020" SQ3024.2
001700 ORGANIZATION IS SEQUENTIAL SQ3024.2
001800 ACCESS MODE IS SEQUENTIAL. SQ3024.2
001900 SQ3024.2
002000 SELECT SQ-FRR ASSIGN SQ3024.2
002100 "C0019" SQ3024.2
002200 ORGANIZATION IS SEQUENTIAL. SQ3024.2
002300 SQ3024.2
002400 SELECT RR-FS1 ASSIGN SQ3024.2
002500 "C0020" SQ3024.2
002600 ORGANIZATION IS SEQUENTIAL. SQ3024.2
002700 SQ3024.2
002800 I-O-CONTROL. SQ3024.2
002900* C0083 . SQ3024.2
003000*Message expected for above statement: OBSOLETE SQ3024.2
003100 SQ3024.2
003200 DATA DIVISION. SQ3024.2
003300 FILE SECTION. SQ3024.2
003400 FD TFIL SQ3024.2
003500 LABEL RECORDS STANDARD SQ3024.2
003600*Message expected for above statement: OBSOLETE SQ3024.2
003700 VALUE OF SQ3024.2
003800 Impl1 SQ3024.2
003900 IS SQ3024.2
004000 4711 SQ3024.2
004100*Message expected for above statement: OBSOLETE SQ3024.2
004200 DATA RECORDS ARE FREC. SQ3024.2
004300*Message expected for above statement: OBSOLETE SQ3024.2
004400 SQ3024.2
004500 01 FREC. SQ3024.2
004600 03 RKEY PIC 9(8). SQ3024.2
004700 SQ3024.2
004800 FD SQ-FRR. SQ3024.2
004900 01 SREC. SQ3024.2
005000 03 SKEY PIC X(8). SQ3024.2
005100 SQ3024.2
005200 FD RR-FS1. SQ3024.2
005300 01 RREC. SQ3024.2
005400 03 FKEY PIC X(8). SQ3024.2
005500 SQ3024.2
005600 WORKING-STORAGE SECTION. SQ3024.2
005700 SQ3024.2
005800 01 VARIABLES. SQ3024.2
005900 03 VKEY PIC 9(8) VALUE ZERO. SQ3024.2
006000 03 DKEY PIC 9(8) VALUE ZERO. SQ3024.2
006100 SQ3024.2
006200 PROCEDURE DIVISION. SQ3024.2
006300 SQ3024.2
006400 SQ302M-CONTROL. SQ3024.2
006500 DISPLAY "THIS IS A DUMMY PARAGRAPH". SQ3024.2
006600 STOP RUN. SQ3024.2
006700 SQ3024.2
006800*TOTAL NUMBER OF FLAGS EXPECTED = 4. SQ3024.2
¤ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
