|
View previous topic :: View next topic
|
| Author |
Message |
nguyenk
New User
Joined: 05 Aug 2005 Posts: 5
|
|
|
|
Hi all,
At my shop, we run Natural in batch on mainframe.
Every time we run a Natural program, the following Natural Security Logon messages comes along with the reports.
For example, if we set up the following JCL:
//CMPRINT DD SYSOUT=(,),OUTPUT=*.REPORTS
Then those messages will get print also along with the reports.
Is there any way we can separate these logon messages without the changes in the Natural programs.
(For ex: we can change WRITE to WRITE (1) in the program, and then set up in JCL:
//CMPRINT DD SYSOUT=(,),OUTPUT=*.SYSMSG
//CMPRT01 DD SYSOUT=(,),OUTPUT=*.REPORTS
However, there are lots pf Natural programs like that; so, I prefer to chnge JCL or another way.
Thanks in advance.
09:50:41 *** NATURAL SECURITY SYSTEM *** 07-06-01
- Logon Procedure -
NNNNNNN NNNNNN SSSSSSSSSSSSSSSSSS CCCCCCCCCCCCCCCCCC
NNNNNNNN NNNNNN SSSSSSSSSSSSSSSSSSS CCCCCCCCCCCCCCCCCCCC
NNNNNNNNN NNNNNN SSSSSS SSSSSS CCCCCCC CCCCCC
NNNNNN NNN NNNNNN SSSSSS CCCCCCC
NNNNNN NNN NNNNNN SSSSSSSSSSSSSSSSSS CCCCCCC
NNNNNN NNN NNNNNN SSSSSSSSSSSSSSSSSS CCCCCCC
NNNNNN NNN NNNNNN SSSSSS CCCCCCC
NNNNNN NNNNNNNNN SSSSSS SSSSSS CCCCCCC CCCCCC
NNNNNN NNNNNNNN SSSSSSSSSSSSSSSSSSS CCCCCCCCCCCCCCCCCCCC
NNNNNN NNNNNNN SSSSSSSSSSSSSSSSSS CCCCCCCCCCCCCCCCCC
-------------------------------------------------------------------------
Software AG, Darmstadt - Natural Security
-------------------------------------------------------------------------
TO EXIT THIS SCREEN, ENTER 'FIN' AS THE APPLICATION-ID
Application ID : ________ User ID : ________
PASSWORD : |
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus

Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
Hello,
Suggest you open an issue with Software AG support. . . |
|
| Back to top |
|
 |
nguyenk
New User
Joined: 05 Aug 2005 Posts: 5
|
|
|
|
Thank you Dick.
I also took a search on AG website, but I still can't firgure out a better way (to supress the messages without modyfing the programs and JCL)AG website contains lots of topics but lack of examples).
Thanks for your response, I am asking the administrator at my shop to do so. |
|
| Back to top |
|
 |
dick scherrer
Moderator Emeritus

Joined: 23 Nov 2006 Posts: 19243 Location: Inside the Matrix
|
|
|
|
You're welcome - good luck
d |
|
| Back to top |
|
 |
nguyenk
New User
Joined: 05 Aug 2005 Posts: 5
|
|
|
|
Hello everyone,
I searched and found the following material.
I tried to apply MAINPR parameter in some ways but I still can't make it.
Is anyone has any experience in using this MAINPR parameter ?
MAINPR - Override Default Output Report Number
Possible Values 0 - 31
Default Value 0
With this parameter, you can separate program output from Natural system output, which may be useful particularly in batch mode.
This applies to program output for Report 0, as produced by DISPLAY, PRINT, WRITE or INPUT statements (except INPUT statements which contain input fields (AD=A or AD=M)).
If the MAINPR parameter is specified, program output for Report 0, which would normally be output on the printer assigned to Report 0, is output on the printer specified with MAINPR instead; while system output (NEXT prompt, DATA prompt, etc.) is always output on the primary output device (Report 0); the MAINPR setting must be a a valid printer number (0 - 31).
A logical printer corresponding to the report number specified must be defined to Natural. A printer is defined with the profile parameter PRINT, with the macro NTPRINT or automatically by JCL (in batch mode or under TSO).
The MAINPR parameter does not apply to output from system programs in the Natural system library "SYSLIB", which is always output on the primary output device (Report 0). |
|
| Back to top |
|
 |
Ralph Zbrog
New User
Joined: 21 Nov 2009 Posts: 58 Location: California
|
|
|
|
You are very close, Nguyenk.
You need to pass MAINPR to Natural as a parameter in the JCL.
| Code: |
//RPT EXEC NATBT,PARM='MAINPR=nn'
//CMPRINT DD SYSOUT=(,),OUTPUT=*.SYSMSG
//CMPRTnn DD SYSOUT=(,),OUTPUT=*.REPORTS |
where nn is 01 - 31. |
|
| Back to top |
|
 |
nguyenk
New User
Joined: 05 Aug 2005 Posts: 5
|
|
|
|
Thank you Ralph.
I also figured out that way before I read your note.
But for some reason (protocol) I have to accept the existing way.
Thank you much. |
|
| Back to top |
|
 |
|
|