BCS MVS COBOL Subroutine ABS00007

This routine’s function is quite simple.It’s only function is to execute the goback command. Almost every program uses goback at least once. By using this approach COBOL programs avoid code bloat. There is overhead using goback. This approach minimizes that code bloat.

000100 IDENTIFICATION DIVISION.                                         00010000
000200 PROGRAM-ID.    ABS00007.                                         00020000
000300 AUTHOR.        ARCH BROOKS.                                      00030000
000400 INSTALLATION   BROOKS COMPUTING SYSTEMS, LLC.                    00040000
000500 DATE-WRITTEN.  09/15/2014.                                       00050000
000600 DATE-COMPILED. 09/15/2014.                                       00060000
000700 ENVIRONMENT DIVISION.                                            00070000
000800 CONFIGURATION SECTION.                                           00080000
000900 SOURCE-COMPUTER. IBM-Z-OS.                                       00090000
001000 OBJECT-COMPUTER. IBM-Z-OS.                                       00100000
001010 INPUT-OUTPUT SECTION.                                            00101000
001020 FILE-CONTROL.                                                    00102000
001030 DATA DIVISION.                                                   00103000
001040 FILE SECTION.                                                    00104000
001050 WORKING-STORAGE SECTION.                                         00105000
001060 PROCEDURE DIVISION.                                              00106000
001070     GOBACK.                                                      00107000

Below is the compiler output.

1PP 5655-S71 IBM Enterprise COBOL for z/OS  4.1.0                         Date 09/21/2014  Time 06:57:58   Page     1
0Invocation parameters:
  VBREF
0Options in effect:
  NOADATA
    ADV
    QUOTE
    ARITH(COMPAT)
  NOAWO
    BUFSIZE(4096)
  NOCICS
    CODEPAGE(1140)
  NOCOMPILE(S)
  NOCURRENCY
    DATA(31)
  NODATEPROC
    DBCS
  NODECK
  NODIAGTRUNC
  NODLL
  NODUMP
  NODYNAM
  NOEXIT
  NOEXPORTALL
  NOFASTSRT
    FLAG(I,I)
  NOFLAGSTD
    INTDATE(ANSI)
    LANGUAGE(EN)
  NOLIB
    LINECOUNT(60)
  NOLIST
  NOMAP
  NOMDECK
  NONAME
    NSYMBOL(NATIONAL)
  NONUMBER
    NUMPROC(NOPFD)
    OBJECT
  NOOFFSET
  NOOPTIMIZE
    OUTDD(SYSOUT)
    PGMNAME(COMPAT)
    RENT
    RMODE(AUTO)
    SEQUENCE
    SIZE(MAX)
    SOURCE
    SPACE(1)
  NOSQL
    SQLCCSID
  NOSSRANGE
  NOTERM
  NOTEST
  NOTHREAD
    TRUNC(STD)
    VBREF
  NOWORD
1PP 5655-S71 IBM Enterprise COBOL for z/OS  4.1.0                         Date 09/21/2014  Time 06:57:58   Page     2
0   XMLPARSE(XMLSS)
    XREF(FULL)
    YEARWINDOW(1900)
    ZWB
1PP 5655-S71 IBM Enterprise COBOL for z/OS  4.1.0               ABS00007  Date 09/21/2014  Time 06:57:58   Page     3
   LineID  PL SL  ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference
0  000001         000100 IDENTIFICATION DIVISION.                                         00010000
   000002         000200 PROGRAM-ID.    ABS00007.                                         00020000
   000003         000300 AUTHOR.        ARCH BROOKS.                                      00030000
   000004         000400 INSTALLATION   BROOKS COMPUTING SYSTEMS, LLC.                    00040000
   000005         000500 DATE-WRITTEN.  09/15/2014.                                       00050000
   000006         000600 DATE-COMPILED. 09/21/14.                                         00060000
   000007         000700 ENVIRONMENT DIVISION.                                            00070000
   000008         000800 CONFIGURATION SECTION.                                           00080000
   000009         000900 SOURCE-COMPUTER. IBM-Z-OS.                                       00090000
   000010         001000 OBJECT-COMPUTER. IBM-Z-OS.                                       00100000
   000011         001010 INPUT-OUTPUT SECTION.                                            00101000
   000012         001020 FILE-CONTROL.                                                    00102000
   000013         001030 DATA DIVISION.                                                   00103000
   000014         001040 FILE SECTION.                                                    00104000
   000015         001050 WORKING-STORAGE SECTION.                                         00105000
   000016         001060 PROCEDURE DIVISION.                                              00106000
   000017         001070     GOBACK.                                                      00107000
1PP 5655-S71 IBM Enterprise COBOL for z/OS  4.1.0               ABS00007  Date 09/21/2014  Time 06:57:58   Page     4
0 Count   Cross-reference of verbs        References
 
 1        GOBACK . . . . . . . . . . . .  17
1PP 5655-S71 IBM Enterprise COBOL for z/OS  4.1.0               ABS00007  Date 09/21/2014  Time 06:57:58   Page     5
0An "M" preceding a data-name reference indicates that the data-name is modified by this reference.
 
  Defined   Cross-reference of data names   References
 
1PP 5655-S71 IBM Enterprise COBOL for z/OS  4.1.0               ABS00007  Date 09/21/2014  Time 06:57:58   Page     6
0 Defined   Cross-reference of programs     References
 
        2   ABS00007
-* Statistics for COBOL program ABS00007:
 *    Source records = 17
 *    Data Division statements = 0
 *    Procedure Division statements = 1
0End of compilation 1,  program ABS00007,  no statements flagged.
0Return code 0

Mr. Arch Brooks, Software Engineer, Brooks Computing Systems, LLC authored this article.

Leave a Reply