Page 1 of 1

PROTERM SCRIPTS

PostPosted: Mon Nov 07, 2011 8:20 am
by 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. :)

Re: PROTERM SCRIPTS

PostPosted: Mon Nov 07, 2011 11:16 am
by 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.

Re: PROTERM SCRIPTS

PostPosted: Mon Nov 07, 2011 11:54 am
by 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. :)

Re: PROTERM SCRIPTS

PostPosted: Mon Nov 07, 2011 12:04 pm
by 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 :idea: about this? or reference material regrading proterm? Thanks.
:)

Re: PROTERM SCRIPTS

PostPosted: Mon Nov 07, 2011 12:47 pm
by 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"?

Re: PROTERM SCRIPTS

PostPosted: Mon Nov 07, 2011 1:32 pm
by 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

Re: PROTERM SCRIPTS

PostPosted: Mon Nov 07, 2011 10:06 pm
by 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. . . .