Quelle  ic102a.cob   Sprache: Cobol

000100 IDENTIFICATION001500*                                                              *  IC1024.2
000200 PROGRAM-ID.                                                      IC1024.2
000300     IC102A001900*                                                              *  IC1024.2
000400****************************************************************  IC1024.2
000500*                                                              *  IC1024.2
000600*    VALIDATION FOR:-                                          *  IC1024.2
000700*                                                              *  IC1024.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IC1024.2
000900*                                                              *  IC1024.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IC1024.2
001100*                                                              *  IC1024.2
001200****************************************************************  IC1024.2
001300*                                                              *  IC1024.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  IC1024.2
001500*                                                              *  IC1024.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  IC1024.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  IC1024.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  IC1024.2
001900*                                                              *  IC1024.2
002000****************************************************************  IC1024.2
002100*        THIS PROGRAM TESTS THE USE OF THE LINKAGE SECTION        IC1024.2
002200*    AND USING PHRASE IN THE PROCEDURE DIVISION HEADER.           IC1024.2
002300 ENVIRONMENT DIVISION.                                            IC1024.2
002400 CONFIGURATION SECTION.                                           IC1024.2
002500 SOURCE-COMPUTER.                                                 IC1024.2
002600     003000 FILE-CONTROL.                                                    .2
002700 OBJECT-COMPUTER.                                                 IC1024.2
002800     Card0131 IC1024.2
002900 INPUT-OUTPUT SECTION.                                            IC1024.2
003000 FILE-CONTROL.                                                    IC1024.2
003100     SELECT PRINT-FILE ASSIGN TO                                  IC1024.2
003200     "C0085" .                                                    IC1024.2
003300 DATA DIVISION.                                                   IC1024.2
003400 FILE SECTION.                                                    IC1024.2
003500 FD  PRINT-FILE.                                                  IC102400360001   (120.IC1024
    ()                                    .
003700 01  DUMMY-RECORD PICTURE X(120).                                 IC1024.2
003800 WORKING-STORAGE SECTION.                                            S9.IC1024
004000LINKAGE                                                 2
004000 LINKAGE SECTION.                                                 IC1024.2
   PICTURES9                                              java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
.2
004300  .IC1024.2
004400 CALL-TEST-001.                                                   IC1024.2
004500     ADD 1 TO DN2.                                                IC1024.2
004600     MOVE DN2 TO DN1.                                             IC1024.2
004700 CALL-EXIT-001.                                                   IC1024.2
004800     004600     MOVE   .IC10242