|
000100 IDENTIFICATION DIVISION. SQ4014.2
000200 PROGRAM-ID. SQ4014.2
000300 SQ401M. SQ4014.2
000400*THE FOLLOWING PROGRAM TESTS THE FLAGGING OF HIGH SQ4014.2
000500*SUBSET FEATURES THAT ARE USED IN SEQUENTIAL SQ4014.2
000600*INPUT-OUTPUT. SQ4014.2
000700 ENVIRONMENT DIVISION. SQ4014.2
000800 CONFIGURATION SECTION. SQ4014.2
000900 SOURCE-COMPUTER. SQ4014.2
001000 Card0130. SQ4014.2
001100 OBJECT-COMPUTER. SQ4014.2
001200 Card0131. SQ4014.2
001300 INPUT-OUTPUT SECTION. SQ4014.2
001400 FILE-CONTROL. SQ4014.2
001500 SELECT OPTIONAL TFIL ASSIGN SQ4014.2
001600*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
001700 SQ4014.2
001800 "C0002" SQ4014.2
001900 RESERVE 2 AREAS SQ4014.2
002000*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
002100 SQ4014.2
002200 ORGANIZATION IS SEQUENTIAL SQ4014.2
002300 PADDING CHARACTER IS "P" SQ4014.2
002400*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
002500 SQ4014.2
002600 RECORD DELIMITER IS STANDARD-1 SQ4014.2
002700*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
002800 SQ4014.2
002900 ACCESS MODE IS SEQUENTIAL. SQ4014.2
003000 SQ4014.2
003100 SELECT TFIL2 ASSIGN SQ4014.2
003200 "C0008" SQ4014.2
003300 ORGANIZATION IS SEQUENTIAL SQ4014.2
003400 ACCESS MODE IS SEQUENTIAL. SQ4014.2
003500 SQ4014.2
003600 SQ4014.2
003700 SELECT TFIL3 ASSIGN SQ4014.2
003800 "C0003" . SQ4014.2
003900 SQ4014.2
004000 I-O-CONTROL. SQ4014.2
004100 SAME RECORD AREA FOR TFIL2, TFIL SQ4014.2
004200*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
004300 SQ4014.2
004400 MULTIPLE FILE TAPE CONTAINS TFIL2. SQ4014.2
004500*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
004600 SQ4014.2
004700 DATA DIVISION. SQ4014.2
004800 FILE SECTION. SQ4014.2
004900 FD TFIL SQ4014.2
005000 BLOCK CONTAINS 1 TO 8 RECORDS SQ4014.2
005100*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
005200 SQ4014.2
005300 RECORD VARYING IN SIZE FROM 1 TO 8 CHARACTERS SQ4014.2
005400*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
005500 SQ4014.2
005600 LINAGE IS 20 LINES SQ4014.2
005700*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
005800 SQ4014.2
005900 LABEL RECORDS ARE STANDARD SQ4014.2
006000 VALUE OF SQ4014.2
006100 Impl1 SQ4014.2
006200 IS VKEY. SQ4014.2
006300*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
006400 SQ4014.2
006500 01 FREC. SQ4014.2
006600 03 RKEY PIC 9(8). SQ4014.2
006700 SQ4014.2
006800 FD TFIL2. SQ4014.2
006900 01 FREC2. SQ4014.2
007000 03 RKEY2 PIC 9(8). SQ4014.2
007100 SQ4014.2
007200 SQ4014.2
007300 FD TFIL3. SQ4014.2
007400 01 FREC3. SQ4014.2
007500 02 RKEY3 PIC 9(8). SQ4014.2
007600 SQ4014.2
007700 WORKING-STORAGE SECTION. SQ4014.2
007800 SQ4014.2
007900 01 VARIABLES. SQ4014.2
008000 SQ4014.2
008100 03 VKEY SQ4014.2
008200 Pic X . SQ4014.2
008300 SQ4014.2
008400 SQ4014.2
008500 PROCEDURE DIVISION. SQ4014.2
008600 SQ4014.2
008700 SQ401M-CONTROL. SQ4014.2
008800 OPEN INPUT TFIL. SQ4014.2
008900 PERFORM SQ401M-CLOSEREMOV THRU SQ401M-WRITEEOP. SQ4014.2
009000 CLOSE TFIL. SQ4014.2
009100 CLOSE TFIL2. SQ4014.2
009200 STOP RUN. SQ4014.2
009300 SQ4014.2
009400 SQ401M-CLOSEREMOV. SQ4014.2
009500 CLOSE TFIL REEL FOR REMOVAL. SQ4014.2
009600*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
009700 SQ4014.2
009800 SQ401M-CLOSENRW. SQ4014.2
009900 OPEN INPUT TFIL. SQ4014.2
010000 CLOSE TFIL WITH NO REWIND. SQ4014.2
010100*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
010200 SQ4014.2
010300 SQ401M-CLOSELOCK. SQ4014.2
010400 OPEN INPUT TFIL. SQ4014.2
010500 CLOSE TFIL WITH LOCK. SQ4014.2
010600*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
010700 SQ4014.2
010800 SQ401M-OPENREV. SQ4014.2
010900 OPEN INPUT TFIL REVERSED. SQ4014.2
011000*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
011100 SQ4014.2
011200 SQ401M-OPENNOREW. SQ4014.2
011300 CLOSE TFIL. SQ4014.2
011400 OPEN INPUT TFIL WITH NO REWIND. SQ4014.2
011500*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
011600 SQ4014.2
011700 SQ401M-EXTEND. SQ4014.2
011800 CLOSE TFIL. SQ4014.2
011900 OPEN EXTEND TFIL3. SQ4014.2
012000*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
012100 SQ4014.2
012200 SQ401M-READNEXT. SQ4014.2
012300 OPEN INPUT TFIL. SQ4014.2
012400 READ TFIL NEXT RECORD SQ4014.2
012500 AT END DISPLAY "AT END". SQ4014.2
012600*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
012700 SQ4014.2
012800 CLOSE TFIL. SQ4014.2
012900 SQ4014.2
013000 SQ401M-WRITEEOP. SQ4014.2
013100 OPEN OUTPUT TFIL. SQ4014.2
013200 WRITE FREC AT END-OF-PAGE DISPLAY "HELLO". SQ4014.2
013300*Message expected for above statement: NON-CONFORMING STANDARD SQ4014.2
013400 SQ4014.2
013500 SQ4014.2
013600 SQ4014.2
013700*TOTAL NUMBER OF FLAGS EXPECTED = 18. SQ4014.2
¤ Dauer der Verarbeitung: 0.16 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.
|
