// JOB VSB028,,B000,B000
// OPR ****--BEGIN--TO--COMPLIE--VSCOB5--*****
// DVC 20 // LFD PRNTR
// WORK1 DVC=50,VOL=SDIVSB
// WORK2 DVC=50,VOL=SDIVSB
// WORK3 DVC=50,VOL=SDIVSB
// EXEC COBOL
// PARAM LST=(S,O,L,A,C)
/$
000010 IDENTIFICATION DIVISION.                                         VSB028
000011 PROGRAM-ID. VSCOB5.                                              TSVSB028
000012 AUTHOR. J KRAKOWKSY SDI.                                         VSB028
000013 INSTALLATION. SPERRY-UNIVAC SITE-U.                              VSB028
000014 DATE-WRITTEN. NOVEMBER 11 1974.                                  VSB028
000015 REMARKS.    VSB028--TESTS FOR USE OF EXTENDED CODE USAGE         VSB028
000016             WITH THE OS/3 COBOL COMPILER 2K MICROCODE NEEDED.    VSB028
000016 ENVIRONMENT DIVISION.                                            VSB028
000017 CONFIGURATION SECTION.                                           VSB028
000018 SOURCE-COMPUTER.  UNIVAC-9030.                                   VSB028
000018 OBJECT-COMPUTER.  UNIVAC-9030.                                   VSB028
000019 SPECIAL-NAMES.                                                   VSB028
000020     SYSLST IS TAGA.                                              VSB028
000021 DATA DIVISION.                                                   TSVSB028
000023 WORKING-STORAGE SECTION.                                         VSB028
000024 01  AA  USAGE IS COMP-2.                                         VSB028
000025 01  BB  USAGE IS COMP-2.                                         VSB028
000026 01  SPCLNE  PIC X(120) VALUE IS SPACES.                          VSB028
000027 01  LINEOUT.                                                     VSB028
000028     03  A2  PIC +999.999E+99.                                    VSB028
000029     03  A3  PIC X(13) VALUE IS ' IS ADDED TO '.                  VSB028
000030     03  A4  PIC +999.999E+99.                                    VSB028
000031     03  A5  PIC X(8) VALUE IS ' GIVING '.                        VSB028
000032     03  A6  PIC +999.999E+99.                                    VSB028
000032     03  FILLER  PIC X(72) VALUE IS SPACES.                       VSB028
       01  TS.                                                          TSVSB028
           05  TS2 PIC X(49) VALUE                                      TSVSB028
               'END OF 2K-COS TEST VSCOB5(VSB028)               '.      TSVSB028
000033 PROCEDURE DIVISION.                                              VSB028
000034 START.                                                           VSB028
000035     MOVE 122758.890 TO AA.                                       VSBV28
000035     MOVE 6986.097 TO BB.                                         VSBV28
000036     MOVE AA TO A2.                                               VSBV28
000036     MOVE BB TO A4.                                               VSBV28
000037     ADD AA TO BB.                                                VSB028
000037     MOVE BB TO A6.                                               VSBV28
000038     DISPLAY SPCLNE UPON TAGA.                                    VSB028
000039     DISPLAY SPCLNE UPON TAGA.                                    VSB028
000040     DISPLAY SPCLNE UPON TAGA.                                    VSB028
000041     DISPLAY SPCLNE UPON TAGA.                                    VSB028
000042     DISPLAY LINEOUT UPON TAGA.                                   VSB028
                  DISPLAY TS2                                           TSVSB028
000044     STOP RUN.                                                    VSB028
/*
// OPR ****--BEGIN--TO--LINK--AND--LOAD--VSCOB5--****
// DVC 50 // VOL SDIVSB // LBL VSBLIB // LFD LOAD
// WORK1 DVC=50,VOL=SDIVSB
// EXEC LNKEDT
// PARAM OUT=LOAD
/$
         LOADM VSCOB5
/*
// OPR ****--BEGIN--TO--EXECUTE--VSCOB5--****
// DVC 20 // LFD SYSLST
// DVC 50 // VOL SDIVSB // LBL VSBLIB // LFD LOAD
// EXEC VSCOB500,LOAD
/&
