IBM Mainframe Forum

[dwayne23]

Anyone knows where to get some source of information (documentation) on Proterm Cobol Scripts?
We have a task of system migration: To list all of the screens that are called and then for those screens find the corresponding CICS COBOL program.
Please help me on the basics of proterm. Thanks.

[dick scherrer]

Hello and welcome to the forum,

Only post a question in one part of the forum. The duplicate has been locked to reduce clutter.

What do you mean by "Proterm Cobol Scripts'? Who is the vendor for the "proterm" you ask about?

I'm aware of a coupole of things called Proterm, but they run on a pc. They are not cobol/cics related.

If you provide better information, someone may have a suggestion.

[dwayne23]

Hi Dick sorry about that.
Proterm script has an extension .PRO
see the sample codes below.

* SCRIPT for updating SCREEN
init-prog
open infile input
open screens output
set &prgm to 'WTLW100'
set &reccnt to 0
set &errcnt to 0
set &uptcnt to 0
set &cc to '1'
set &border(,1,132) to all '-'
*
*
* START THE 'PRET' TRANSACTION
*
TYPE <1,2> 'pret'
<1,6> ENTER
TYPE <24,72> 'w100___'
<24,76> ENTER
*
*
* READ(LOOP) THROUGH THE INPUT RECORD
*
read-record
read INFILE into &record endfile end-of-file
*
set &reccnt up 1
perform define-input
perform check-action
type <2,9> PF5
go to read-record

* DEFINE VARIABLES FROM INPUT FILE THAT ARE ON THE SCREEN
define-input
set &action to 'I'
set &aaction to 'A'
set &iaction to 'I'
set &caction to 'C'
set &flacwell to &record(,1,6)
set &wellcomp to &record(,7,2)
set &newdate to &record(,18,10)
exit

:
:
:

printerr write screens from &cc '+' &border(,1,&ptecols) '+'
set &row to 1
print010 set &line to image <&row,1,&ptecols>
write screens from ' |' &line '|'
set &row up 1
if &row le &pterows
goto print010
write screens from ' +' &border(,1,&ptecols) '+'
if &cc eq '1'
goto print020
set &cc to '1'
exit
print020 set &cc to '0'
exit
*
*
*
*
end-of-file
set &report to ' ' &prgm ' screen update report'
write screens from &report
set &report to ' END OF FILE for ' &reccnt ' records'
write screens from &report
set &report to ' ' &uptcnt ' records SUCCESSFULLY added'
write screens from &report
set &report to ' ' &errcnt' records UNSUCCESSFULLY added'
write screens from &report
set &report to ' ' &prgm ' processing complete'
write screens from &report
close infile
close screens
TYPE CLEAR
TYPE CLEAR
TYPE <1,1> 'logoff'
<1,7> ENTER


can anyone give me an idea about this? or reference material regrading proterm? Thanks.

[dwayne23]

Hi Dick sorry about that.
Proterm script has an extension .PRO
see the sample codes below.

Select all

* SCRIPT for updating SCREEN
init-prog
open infile input
open screens output
set &prgm to 'WTLW100'
set &reccnt to 0
set &errcnt to 0
set &uptcnt to 0
set &cc to '1'
set &border(,1,132) to all '-'
*
*
* START THE 'PRET' TRANSACTION
*
TYPE <1,2> 'pret'
<1,6> ENTER
TYPE <24,72> 'w100___'
<24,76> ENTER
*
*
* READ(LOOP) THROUGH THE INPUT RECORD
*
read-record
read INFILE into &record endfile end-of-file
*
set &reccnt up 1
perform define-input
perform check-action
type <2,9> PF5
go to read-record

* DEFINE VARIABLES FROM INPUT FILE THAT ARE ON THE SCREEN
define-input
set &action to 'I'
set &aaction to 'A'
set &iaction to 'I'
set &caction to 'C'
set &flacwell to &record(,1,6)
set &wellcomp to &record(,7,2)
set &newdate to &record(,18,10)
exit

:
:
:

printerr write screens from &cc '+' &border(,1,&ptecols) '+'
set &row to 1
print010 set &line to image <&row,1,&ptecols>
write screens from ' |' &line '|'
set &row up 1
if &row le &pterows
goto print010
write screens from ' +' &border(,1,&ptecols) '+'
if &cc eq '1'
goto print020
set &cc to '1'
exit
print020 set &cc to '0'
exit
*
*
*
*
end-of-file
set &report to ' ' &prgm ' screen update report'
write screens from &report
set &report to ' END OF FILE for ' &reccnt ' records'
write screens from &report
set &report to ' ' &uptcnt ' records SUCCESSFULLY added'
write screens from &report
set &report to ' ' &errcnt' records UNSUCCESSFULLY added'
write screens from &report
set &report to ' ' &prgm ' processing complete'
write screens from &report
close infile
close screens
TYPE CLEAR
TYPE CLEAR
TYPE <1,1> 'logoff'
<1,7> ENTER

can anyone give me an idea about this? or reference material regrading proterm? Thanks.

[dick scherrer]

Hello,

Which COBOL compiler is being used? The posted code does not resemble any mainframe COBOL i've seen. . .

Where are these processes executed (on a mainframe or a pc)?

And to repeat, who is the vendor for your "proterm"?

[dwayne23]

Hi, These are all executed in mainframe. I'm afraid I can't give enough details regarding on vendor I believed this forum is related to this. http://listserv.uga.edu/cgi-bin/wa?A2=ind0408&L=cics-l&D=0&P=4837

[dick scherrer]

Hello,

From the link you posted:

CA markets a product called Enterprise Tester (formerly called ProTerm)

Suggest you open an issue with CA Support. All of the material will be available for free if your organization is licensed to use the product.

Hopefully, your organization was not so foolish as to terminate the license before the migration was done. . . .