PROTERM SCRIPTS



Post anything related to mainframes (IBM & UNISYS) if not fit in any of the above categories

PROTERM SCRIPTS

Postby dwayne23 » Mon Nov 07, 2011 8:20 am

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. :)
dwayne23
 
Posts: 5
Joined: Mon Nov 07, 2011 8:07 am
Has thanked: 0 time
Been thanked: 0 time

Re: PROTERM SCRIPTS

Postby dick scherrer » Mon Nov 07, 2011 11:16 am

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.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: PROTERM SCRIPTS

Postby dwayne23 » Mon Nov 07, 2011 11:54 am

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
 
Posts: 5
Joined: Mon Nov 07, 2011 8:07 am
Has thanked: 0 time
Been thanked: 0 time

Re: PROTERM SCRIPTS

Postby dwayne23 » Mon Nov 07, 2011 12:04 pm

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.
:)
dwayne23
 
Posts: 5
Joined: Mon Nov 07, 2011 8:07 am
Has thanked: 0 time
Been thanked: 0 time

Re: PROTERM SCRIPTS

Postby dick scherrer » Mon Nov 07, 2011 12:47 pm

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"?
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: PROTERM SCRIPTS

Postby dwayne23 » Mon Nov 07, 2011 1:32 pm

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
dwayne23
 
Posts: 5
Joined: Mon Nov 07, 2011 8:07 am
Has thanked: 0 time
Been thanked: 0 time

Re: PROTERM SCRIPTS

Postby dick scherrer » Mon Nov 07, 2011 10:06 pm

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. . . .
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times


Return to All other Mainframe Topics