Quelle  ic212a.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         IC2124.2
000200 PROGRAM-ID.                                                      IC2124.2
000300     IC212A.                                                      IC2124.2
000400****************************************************************  IC2124.2
000500*                                                              *  IC2124.2
000600*    VALIDATION FOR:-                                          *  IC2124.2
000700*                                                              *  IC2124.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IC2124.2
000900*                                                              *  IC2124.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IC2124.2
001100*                                                              *  IC2124.2
001200****************************************************************  IC2124.2
001300*                                                              *  IC2124.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  IC2124.2
001500*                                                              *  IC2124.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  IC2124.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  IC2124.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  IC2124.2
001900*                                                              *  IC2124.2
002000****************************************************************  IC2124.2
002100*    THIS IS SUBPROGRAM IC212.                                    IC2124.2
002200****************************************************************  IC2124.2
002300 ENVIRONMENT DIVISION.                                            IC2124.2
002400 CONFIGURATION SECTION.                                           IC2124.2
002500 SOURCE-COMPUTER.                                                 IC2124.2
002600     Card0130.                                                    IC2124.2
002700 OBJECT-COMPUTER.                                                 IC2124.2
002800     Card0131.                                                    IC2124.2
002900 DATA DIVISION.                                                   IC2124.2
003000 LINKAGE SECTION.                                                 IC2124.2
003100 01  TEST-AREA.                                                   IC2124.2
003200     02  TEST1                   PICTURE X.                       IC2124.2
003300     02  TEST2                   PICTURE X.                       IC2124.2
003400     02  TEST3                   PICTURE X.                       IC2124.2
003500     02  TEST4                   PICTURE X.                       IC2124.2
003600 PROCEDURE DIVISION USING TEST-AREA.                              IC2124.2
003700 CALL-TEST-3.                                                     IC2124.2
003800     MOVE "Y" TO TEST3.                                           IC2124.2
003900 IC212-EXIT.                                                      IC2124.2
004000     EXIT PROGRAM.                                                IC2124.2