Using COBCPY, COPYEXT and simple displays for cobol-mb (Microbase) conversion to Visual COBOL.

tonyt

0 Likes

over 7 years ago

Problem

How to convert cobol-mb (MicroBase) showing accessing copy books and using display at 01 01 syntax.

Resolution

Put the 01 01 into a variable.

       01  display-cursor.
           03  dc-line                 pic 99.
           03  dc-column               pic 99.

Then just use this in the procedure division.

           move "0101" to display-prompt-line
           display "my text" at display-cursor

Here is a example of the above display method and others combined with the usage of copy books showing COBCPY and COPYEXT

This has been tested with Oracle unix using bash.

For all programs and scripts needed for this example,

click the link and save as <2679886copy-001.tar>

Copy this onto a test area on your unix machine and untar it, see below. Change setup.sh to point at your cobol environment cobsetenv

This will compile and run the same program three times.

Program1.cbl

program-id. Program1 as "Program1".

       environment division.
       configuration section.

       data division.
       working-storage section.

       01  display-cursor.
           03  dc-line                 pic 99.
           03  dc-column               pic 99.
       
       78  display-begin-line          value 1.
       78  display-header-line         value display-begin-line.
       78  display-header-column       value display-begin-line.

       77  display-prompt-line         pic x(4) value "2301".

       01  ans                         pic x.

       01  i                           pic 999.
       01  j                           pic 999.
       01  k                           pic 999.
       
       copy "displaystring".
       78  display-string-length       value length of display-string.
       
       procedure division.
       main section.
       main-010.
      *
      * one way to control cursor position
      *
           move display-header-line to dc-line
           move display-header-column to dc-column
           display " In COB Program1:main"
               line dc-line column dc-column
               erase screen
           perform init
           perform work
           perform fini
           .
       main-090.
           copy "acceptanswer".

           goback.

       init section.
       init-010.
           display " In COB Program1:init"
               line 1 col 1
           .
       init-090.
           exit.

       work section.
       work-010.
           move "0101" to display-prompt-line
           display " In COB Program1:work"
               at display-prompt-line
      *
      * Just show a bit of a loop
      * 12 times table
      *
           move 6 to dc-line
           move 10 to dc-column
           copy "numberofiterations".
           perform varying i from 1 by 1 until i > j
               perform varying k from 1 by 1 until k > j
                   compute display-string = i * k
                   display display-string at display-cursor
                   compute dc-column =                                   
                           dc-column   display-string-length   1
               end-perform
               add 1 to dc-line
               move 10 to dc-column
           end-perform
           .
       work-090.
           exit.
           
       fini section.
       fini-010.
           display " In COB Program1:fini"
              line 22 - 21 col 2 - 1
           .
       fini-090.
           exit.

       end program Program1.

This program will use different copy books from different locations each time it is compiled and run, changing the program behaviour.

Basically produces 6, 12 and 16 times table and prompt for user input on the last run of the test script.

testbuildandrun.sh. uses copy book numberofiterations that defines the times table to produce and the field width using the copy book displaystring.

It sets COBCPY to point to the copy book locations.

Sets a compiler directive to define the copy book extensions COPYEXT.

simply by setting this to NO or YES.

Sets which copy book acceptanswer to use see testbuildandrun.sh below.

Output

[tonyt@nwb-ora62sup ~]$ cd /home/tonyt/testtar
[tonyt@nwb-ora62sup testtar]$ ls
2679886copy-001.tar
[tonyt@nwb-ora62sup testtar]$ tar -xvf 2679886copy-001.tar
2679886copy/
2679886copy/bin/
2679886copy/bin/time6
2679886copy/bin/time12
2679886copy/bin/time16
2679886copy/source/
2679886copy/source/Program1.cbl
2679886copy/time6/
2679886copy/time6/displaystring
2679886copy/time6/numberofiterations
2679886copy/scripts/
2679886copy/scripts/testbuildandrun.sh
2679886copy/scripts/setup.sh
2679886copy/time12/
2679886copy/time12/numberofiterations.CPY
2679886copy/time12/displaystring.CPY
2679886copy/stop/
2679886copy/stop/acceptanswer.YES
2679886copy/stop/acceptanswer.NO
2679886copy/time16/
2679886copy/time16/numberofiterations.cpy
2679886copy/time16/displaystring.cpy
[tonyt@nwb-ora62sup testtar]$ ls
2679886copy  2679886copy-001.tar
[tonyt@nwb-ora62sup testtar]$ cd 2679886copy
[tonyt@nwb-ora62sup 2679886copy]$ ls
bin  scripts  source  stop  time12  time16  time6
[tonyt@nwb-ora62sup 2679886copy]$ cd scripts
[tonyt@nwb-ora62sup scripts]$ ls
setup.sh  testbuildandrun.sh
[tonyt@nwb-ora62sup scripts]$ cat setup.sh
#!/bin/bash
#
java -version
#
# set up cobol environment variables
#
. /home/products/vcdevhub22/bin/cobsetenv
#
# save COBCPY
#
echo " COBCPY < $COBCPY >"
export SAVEDCOBCPY=$COBCPY
#
# end
#
[tonyt@nwb-ora62sup scripts]$ . ./setup.sh
java version "1.7.0_13"
Java(TM) SE Runtime Environment (build 1.7.0_13-b20)
Java HotSpot(TM) Server VM (build 23.7-b01, mixed mode)
COBDIR set to /home/products/vcdevhub22
COBCPY < /home/products/vcdevhub22/cpylib >
[tonyt@nwb-ora62sup scripts]$ cat testbuildandrun.sh
#!/bin/bash
#
export COBCPY="$SAVEDCOBCPY:../stop:../time6:"
echo "COBCPY < $COBCPY >"
rm ../bin/time6
cob -xvV -C "copyext(NO,,) sourceformat=variable list() showdir settings=col" ../source/Program1.cbl -o ../bin/time6
#
../bin/time6
#
export COBCPY="$SAVEDCOBCPY:../stop:../time12:"
echo "COBCPY < $COBCPY >"
rm ../bin/time12
cob -xvV -C "copyext(NO,CPY,) sourceformat=variable list() showdir settings=col" ../source/Program1.cbl -o ../bin/time12
#
../bin/time12
#
export COBCPY="$SAVEDCOBCPY:../stop:../time16:"
echo "COBCPY < $COBCPY >"
rm ../bin/time16
cob -xvV -C "copyext(YES,cpy,) sourceformat=variable list() showdir settings=col" ../source/Program1.cbl -o ../bin/time16
#
../bin/time16
#
# end
#[tonyt@nwb-ora62sup scripts]$ . ./testbuildandrun.sh
COBCPY < /home/products/vcdevhub22/cpylib:../stop:../time6: >
cob64 -C nolist -xvV -C copyext(NO,,) sourceformat=variable list() showdir settings=col ../source/Program1.cbl -o ../bin/time6
version @(#)cob.c       2.2.0.93
PRN=KXCRH/AAD:Ao.U4.13.04
PTI=32/64 bit
PTI=Micro Focus Visual COBOL Development Hub 2.2
PTI=pkg_77569
PTI=ES
PTI=SOA Configured
* Micro Focus COBOL                  V2.2 revision 000           Compiler
* Copyright (C) Micro Focus 1984-2013. All rights reserved.
* Accepted - verbose
* Accepted - nolist
* Accepted - copyext(NO,,)
* Accepted - sourceformat(variable)
* Accepted - list()
* Accepted - showdir
* Accepted - settings(col)
* Compiling ../source/Program1.cbl
* Total Messages:     0
* Data:         352     Code:         540
* Micro Focus COBOL Code Generator
* Copyright (C) Micro Focus 1984-2013. All rights reserved.
* Accepted - verbose
* Generating Program1
* Data:         120     Code:        1226     Literals:         112
Entry points defined in module: Program1.o
        *Program1
In COB Program1:fini




          1  2  3  4  5  6
          2  4  6  8 10 12
          3  6  9 12 15 18
          4  8 12 16 20 24
          5 10 15 20 25 30
          6 12 18 24 30 36



































COBCPY < /home/products/vcdevhub22/cpylib:../stop:../time12: >
cob64 -C nolist -xvV -C copyext(NO,CPY,) sourceformat=variable list() showdir settings=col ../source/Program1.cbl -o ../bin/time12
version @(#)cob.c       2.2.0.93
PRN=KXCRH/AAD:Ao.U4.13.04
PTI=32/64 bit
PTI=Micro Focus Visual COBOL Development Hub 2.2
PTI=pkg_77569
PTI=ES
PTI=SOA Configured
* Micro Focus COBOL                  V2.2 revision 000           Compiler
* Copyright (C) Micro Focus 1984-2013. All rights reserved.
* Accepted - verbose
* Accepted - nolist
* Accepted - copyext(NO,CPY,)
* Accepted - sourceformat(variable)
* Accepted - list()
* Accepted - showdir
* Accepted - settings(col)
* Compiling ../source/Program1.cbl
* Total Messages:     0
* Data:         352     Code:         541
* Micro Focus COBOL Code Generator
* Copyright (C) Micro Focus 1984-2013. All rights reserved.
* Accepted - verbose
* Generating Program1
* Data:         120     Code:        1237     Literals:         112
Entry points defined in module: Program1.o
        *Program1
In COB Program1:fini




           1   2   3   4   5   6   7   8   9  10  11  12
           2   4   6   8  10  12  14  16  18  20  22  24
           3   6   9  12  15  18  21  24  27  30  33  36
           4   8  12  16  20  24  28  32  36  40  44  48
           5  10  15  20  25  30  35  40  45  50  55  60
           6  12  18  24  30  36  42  48  54  60  66  72
           7  14  21  28  35  42  49  56  63  70  77  84
           8  16  24  32  40  48  56  64  72  80  88  96
           9  18  27  36  45  54  63  72  81  90  99 108
          10  20  30  40  50  60  70  80  90 100 110 120
          11  22  33  44  55  66  77  88  99 110 121 132
          12  24  36  48  60  72  84  96 108 120 132 144





























COBCPY < /home/products/vcdevhub22/cpylib:../stop:../time16: >
cob64 -C nolist -xvV -C copyext(YES,cpy,) sourceformat=variable list() showdir settings=col ../source/Program1.cbl -o ../bin/time16
version @(#)cob.c       2.2.0.93
PRN=KXCRH/AAD:Ao.U4.13.04
PTI=32/64 bit
PTI=Micro Focus Visual COBOL Development Hub 2.2
PTI=pkg_77569
PTI=ES
PTI=SOA Configured
* Micro Focus COBOL                  V2.2 revision 000           Compiler
* Copyright (C) Micro Focus 1984-2013. All rights reserved.
* Accepted - verbose
* Accepted - nolist
* Accepted - copyext(YES,cpy,)
* Accepted - sourceformat(variable)
* Accepted - list()
* Accepted - showdir
* Accepted - settings(col)
* Compiling ../source/Program1.cbl
* Total Messages:     0
* Data:         352     Code:         616
* Micro Focus COBOL Code Generator
* Copyright (C) Micro Focus 1984-2013. All rights reserved.
* Accepted - verbose
* Generating Program1
* Data:         120     Code:        1323     Literals:         160
Entry points defined in module: Program1.o
        *Program1
In COB Program1:fini




            1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16
            2    4    6    8   10   12   14   16   18   20   22   24   26   28   30   32
            3    6    9   12   15   18   21   24   27   30   33   36   39   42   45   48
            4    8   12   16   20   24   28   32   36   40   44   48   52   56   60   64
            5   10   15   20   25   30   35   40   45   50   55   60   65   70   75   80
            6   12   18   24   30   36   42   48   54   60   66   72   78   84   90   96
            7   14   21   28   35   42   49   56   63   70   77   84   91   98  105  112
            8   16   24   32   40   48   56   64   72   80   88   96  104  112  120  128
            9   18   27   36   45   54   63   72   81   90   99  108  117  126  135  144
           10   20   30   40   50   60   70   80   90  100  110  120  130  140  150  160
           11   22   33   44   55   66   77   88   99  110  121  132  143  154  165  176
           12   24   36   48   60   72   84   96  108  120  132  144  156  168  180  192
           13   26   39   52   65   78   91  104  117  130  143  156  169  182  195  208
           14   28   42   56   70   84   98  112  126  140  154  168  182  196  210  224
           15   30   45   60   75   90  105  120  135  150  165  180  195  210  225  240
           16   32   48   64   80   96  112  128  144  160  176  192  208  224  240  256

press enter to continue...[ ]

COPYEXT is a directive not a environment variable.

Comment List

Related Discussions

Recommended

Menu

Visual COBOL

Top Contributors

Using COBCPY, COPYEXT and simple displays for cobol-mb (Microbase) conversion to Visual COBOL.

Problem

Resolution

Program1.cbl

Output

Resources