000100 IDENTIFICATION DIVISION.                                         LOADTEST
000200 PROGRAM-ID. LOADTEST.                                            LOADTEST
000300 AUTHOR.  XDS.                                                    LOADTEST
000400 DATE-WRITTEN.  MARCH 1, 1971.                                    LOADTEST
000500 DATE-COMPILED.                                                   LOADTEST
000600 REMARKS.                                                         LOADTEST
000700     THE PURPOSE OF THIS PROGRAM IS TO TEST WHETHER THE COMPILER  LOADTEST
000800     HAS BEEN LOADED CORRECTLY.  THE FOLLOWING OPTIONS SHOULD     LOADTEST
000900     APPEAR ON THE COBOL CARD - LS,GO,TYPE,SEG,XREF. THE CONSOLE  LOADTEST
001000     LISTING SHOULD BE EXAMINED TO INSURE THAT ALL LOAD MODULES   LOADTEST
001100     HAVE BEEN PRINTED OUT.  THE TEST WILL PRODUCE SORT           LOADTEST
001200     INFORMATION FOR TEN RECORDS AND A REPORT WRITER OUTPUT.      LOADTEST
001230     IF ANYTHING ELSE IS OUTPUT THERE IS AN ERROR IN THE          LOADTEST
001260     COMPILER.  THE FOLLOWING IS A LIST OF ASSIGN AND LOAD CARDS  LOADTEST
001290     THAT WILL BE NEEDED.                                         LOADTEST
001292     !ASSIGN F:FILE1,(FILE,FILE1)                                 LOADTEST
001293     !ASSIGN F:FILE2,(FILE,FILE2)                                 LOADTEST
001294     !ASSIGN F:SORTFILE,(FILE,SORTED)                             LOADTEST
001295     !ASSIGN F:LIP,(DEVICE,LO),(VFC)                              LOADTEST
001296     !ASSIGN F:PRINT-FILE,(DEVICE,LO),(VFC)                       LOADTEST
001297     !LOAD (MAP),(UNSAT,(COBLIB)),(SL,F),(BREF),(ER,(LOADT),;     LOADTEST
001298     ! (LOADT01))                                                 LOADTEST
001299     !TREE LOADT-(LOADT01)                                        LOADTEST
001350 ENVIRONMENT DIVISION.                                            LOADTEST
001400 CONFIGURATION SECTION.                                           LOADTEST
001500 SOURCE-COMPUTER.  XDS-SIGMA-7.                                   LOADTEST
001600 OBJECT-COMPUTER.  XDS-SIGMA-7.                                   LOADTEST
001700 INPUT-OUTPUT SECTION.                                            LOADTEST
001800 FILE-CONTROL.                                                    LOADTEST
001830     SELECT SORTFILE ASSIGN TO DISC.                              LOADTEST
001860     SELECT FILE1 ASSIGN TO DISC.                                 LOADTEST
001900     SELECT OPTIONAL FILE2 ASSIGN TO DISC.                        LOADTEST
001950     SELECT LIP ASSIGN TO PRINTER.                                LOADTEST
002000     SELECT PRINT-FILE ASSIGN TO PRINTER.                         LOADTEST
002100 DATA DIVISION.                                                   LOADTEST
002200 FILE SECTION.                                                    LOADTEST
002202 FD  FILE1                                                        LOADTEST
002204     LABEL RECORDS OMITTED                                        LOADTEST
002206     DATA RECORD IS FILE-1.                                       LOADTEST
002208 01  FILE-1.                                                      LOADTEST
002210     02  TKEY PIC 99.                                             LOADTEST
002212     02  TDATA PIC X(13) VALUE 'SORTED RECORD'.                   LOADTEST
002214     02  FILLER PIC X(84).                                        LOADTEST
002216 SD  SORTFILE                                                     LOADTEST
002218     DATA RECORD IS SORT-REC.                                     LOADTEST
002222     02  SKEY PIC 99.                                             LOADTEST
002224     02  SDATA PIC X(13).                                         LOADTEST
002226     02  FILLER PIC X(86).                                        LOADTEST
002228 FD  LIP LABEL RECORD OMITTED REPORT IS PORT.                     LOADTEST
002300 FD  FILE2                                                        LOADTEST
002400         LABEL RECORDS STANDARD                                   LOADTEST
002500     BLOCK CONTAINS 3 RECORDS                                     LOADTEST
002600     DATA RECORD IS FILE-2.                                       LOADTEST
002700 01  FILE-2.                                                      LOADTEST
002800     02  F-A PICTURE 99.                                          LOADTEST
002900     02  F-B PICTURE X(13).                                       LOADTEST
002950     02  FILLER PICTURE X(84).                                    LOADTEST
003000 FD  PRINT-FILE                                                   LOADTEST
003100     LABEL RECORDS OMITTED                                        LOADTEST
003200     DATA RECORD IS LINER.                                        LOADTEST
003300 01  LINER.                                                       LOADTEST
003400     02  FILLER PICTURE X(10) VALUE ZERO.                         LOADTEST
003500     02  DATA-OUT PICTURE X(70).                                  LOADTEST
003600 WORKING-STORAGE SECTION.                                         LOADTEST
003630 77  FOOT1 PIC 999 VALUE 100.                                     LOADTEST
003660 77  FOOT2 PIC 999 VALUE 200.                                     LOADTEST
003700 77  A   PIC 9 VALUE 1.                                           LOADTEST
003900 77  C   PIC 9 VALUE 3.                                           LOADTEST
004000 77  D   PIC 9 VALUE 4.                                           LOADTEST
004100 77  E   PIC 9 VALUE 5.                                           LOADTEST
004200 77  F   PIC 9 VALUE 6.                                           LOADTEST
004230 77  G   PIC 99 VALUE ZERO.                                       LOADTEST
004260 77  I   PIC 99 VALUE ZERO.                                       LOADTEST
004300 01  CORRESPOND-A.                                                LOADTEST
004400     02  AA PICTURE 99.                                           LOADTEST
004500     02  AB.                                                      LOADTEST
004600         03 AB1 PICTURE 99.                                       LOADTEST
004700         03 AB2 PICTURE 99.                                       LOADTEST
004800     02  AC PICTURE X(7) VALUE 'TEST OK'.                         LOADTEST
004900 01  CORRESPOND-B.                                                LOADTEST
005000     02  AA PICTURE 99.                                           LOADTEST
005100     02  AB.                                                      LOADTEST
005200         03 AB1 PICTURE 99.                                       LOADTEST
005300         03 AB2 PICTURE 99.                                       LOADTEST
005400     02  AC PICTURE X(7).                                         LOADTEST
005401 REPORT SECTION.                                                  LOADTEST
005402 RD  PORT CONTROLS ARE FOOT2 FOOT1                                LOADTEST
005403         PAGE LIMIT IS 38 LINES HEADING 1 FIRST DETAIL 10         LOADTEST
005404         LAST DETAIL 34.                                          LOADTEST
005406     02  LINE 2 COLUMN 20 PIC X(13) VALUE 'XDS ANS COBOL'.        LOADTEST
005407 01  DET TYPE DETAIL LINE PLUS 1.                                 LOADTEST
005408     02  COLUMN 20 PIC X(25) VALUE '*************************'.   LOADTEST
005409     02  COLUMN 50 PIC 999 SOURCE FOOT1.                          LOADTEST
005410     02  COLUMN 60 PIC 999 SOURCE FOOT2.                          LOADTEST
005411 01  TYPE CONTROL FOOTING FOOT1 LINE PLUS 2 NEXT GROUP PLUS 2.    LOADTEST
005412     02  COLUMN 20 PIC X(5) VALUE 'TOTAL'.                        LOADTEST
005413     02  COLUMN 50 PIC Z(4) SUM FOOT1.                            LOADTEST
005414 01  TYPE CONTROL FOOTING FOOT2 LINE PLUS 2 NEXT GROUP PLUS 2.    LOADTEST
005415     02  COLUMN 60 PIC Z(4) SUM FOOT2.                            LOADTEST
005416 01  TYPE PAGE FOOTING LINE PLUS 1.                               LOADTEST
005417     02  COLUMN 50 PIC X(16) VALUE 'PAGE FOOTING'.                LOADTEST
005500 PROCEDURE DIVISION.                                              LOADTEST
005530 START SECTION.                                                   LOADTEST
005560 STARTER.                                                         LOADTEST
005700     OPEN OUTPUT PRINT-FILE.                                      LOADTEST
005800     OPEN OUTPUT FILE1.                                           LOADTEST
005900     PERFORM WRITER VARYING I FROM 1 BY 2 UNTIL I GREATER THAN    LOADTEST
006000     9.                                                           LOADTEST
006100     PERFORM WRITER VARYING I FROM 10 BY -2 UNTIL I LESS THAN 2.  LOADTEST
006200     CLOSE FILE1.                                                 LOADTEST
006300     SORT SORTFILE ASCENDING KEY SKEY USING FILE1 GIVING FILE2.   LOADTEST
006450     PERFORM PARA-1.                                              LOADTEST
006500     IF AA OF CORRESPOND-B NOT EQUAL TO 6 AND                     LOADTEST
006550     G NOT EQUAL TO 5 AND                                         LOADTEST
006600        AB OF CORRESPOND-B NOT EQUAL TO 0520 AND                  LOADTEST
006700        AC OF CORRESPOND-B NOT EQUAL TO 'TEST OK' PERFORM FAIL.   LOADTEST
006900     CLOSE PRINT-FILE.                                            LOADTEST
007000 PARAG.                                                           LOADTEST
007005     OPEN OUTPUT LIP.                                             LOADTEST
007010     INITIATE PORT.                                               LOADTEST
007015     PERFORM GENE 10 TIMES.                                       LOADTEST
007020     MOVE 300 TO FOOT1.                                           LOADTEST
007025     PERFORM GENE 5 TIMES.                                        LOADTEST
007030     TERMINATE PORT.                                              LOADTEST
007035     CLOSE LIP STOP RUN.                                          LOADTEST
007040 GENE.  GENERATE DET.                                             LOADTEST
007045 WRITER.                                                          LOADTEST
007050     MOVE I TO TKEY.                                              LOADTEST
007055     WRITE FILE-1.                                                LOADTEST
007100 FAIL.                                                            LOADTEST
007200     WRITE LINER FROM CORRESPOND-B.                               LOADTEST
007300 SEGMENTEST SECTION 51.                                           LOADTEST
007400 PARA-1.                                                          LOADTEST
      8
007600     SUBTRACT A FROM F GIVING AB1 OF CORRESPOND-A.                LOADTEST
007700     MULTIPLY E BY D GIVING AB2 OF CORRESPOND-A.                  LOADTEST
007800     MOVE CORRESPONDING CORRESPOND-A TO CORRESPOND-B.             LOADTEST
007900     COMPUTE G = B * B + F - E.                                   LOADTEST

