| View previous topic :: View next topic |
| Author |
Message |
Brahma
Beginner
Joined: 20 Jul 2005
Posts: 1
Topics: 1
|
 Posted: Wed Jul 20, 2005 10:50 am Post subject: Truncation of characters in SYSOUT |
 |
|
Hi,
Let us know the reason for the truncation of characters in SYSOUT of the job which is executing the below COBOL code.
In DEVELOPMENT environment and PRODUCTION environment the COBOL code is same as shown below.Iam giving you the portion of the COBOL code which deals with printing of the output.
| Code: |
FILE-CONTROL.
SELECT PARM-FILE ASSIGN TO SYSOUT.
FD PARM-FILE
BLOCK CONTAINS 0 RECORDS
RECORD CONTAINS 133 CHARACTERS
LABEL RECORDS ARE STANDARD
DATA RECORD IS PARM-REC
RECORDING MODE F.
01 PARM-REC PIC X(133).
************************************************************************
***
MOVE '------------------------------------------' TO PARM-REC
WRITE PARM-REC
MOVE ' Values of the parameters passing to MWCXM module '
TO PARM-REC
WRITE PARM-REC
MOVE '------------------------------------------' TO PARM-REC
WRITE PARM-REC
MOVE 'office node: ' TO PARM-REC
WRITE PARM-REC
MOVE OFFICE-NODE OF LINKAGE-FOR-MWCXM TO PARM-REC
WRITE PARM-REC
MOVE 'GAI mail id: ' TO PARM-REC
WRITE PARM-REC
MOVE GAI-MAILID OF LINKAGE-FOR-MWCXM TO PARM-REC
WRITE PARM-REC
MOVE 'GAI password: ' TO PARM-REC
WRITE PARM-REC
MOVE GAI-PASSWORD OF LINKAGE-FOR-MWCXM TO PARM-REC
WRITE PARM-REC
MOVE 'GAI error code: ' TO PARM-REC
WRITE PARM-REC
MOVE GAI-ERRCODE OF LINKAGE-FOR-MWCXM TO PARM-REC
WRITE PARM-REC
MOVE 'GAI error message: ' TO PARM-REC
WRITE PARM-REC
MOVE ERROR-MESSAGE OF LINKAGE-FOR-MWCXM TO PARM-REC
WRITE PARM-REC
|
The result shown in SYSOUT is differing inspite of the same code in both the environments.
In DEVELOPMENT SYSOUT The result is as follows:
| Code: |
------------------------------------------
Values of the parameters passing to MWCXM module
------------------------------------------
office node:
0001
GAI mail id:
781Z00
GAI password:
GAI error code:
0002
GAI error message:
Error when trying to add recipients to the message.
Envelop indicator:
Continution indicator:
Y
Confidential indicator:
N
Recipients count:
003
Message lines:
0029
------------------------------------------
Contents of the MEMO
------------------------------------------
SUBJECT: Mass Item Update Confirmation
Business unit: Replacement Service
Item/Vendor update: Update
|
In PRODUCTION SYSOUT The result is as follows:
| Code: |
-----------------------------------------
Values of the parameters passing to MWCXM module
-----------------------------------------
office node:
001
AI mail id:
81Z00
AI password:
AI error code:
480
AI error message:
Send error, rc = -2147024809, MAPI error = .Collaboration Data Objects
- .E_INV
nvelop indicator:
ontinution indicator:
Y
onfidential indicator:
N
ecipients count:
02
Message lines:
029
-----------------------------------------
Contents of the MEMO
-----------------------------------------
SUBJECT: Mass Item Update Confirmation
usiness unit: Replacement Service
tem/Vendor update: Update
Filter: Family/Category
xisting vendor: BEST BUY COMPANY
New vendor:
|
As you can see above,
1) The leftmost character in each and every line in the Production output is getting truncated when compared to the development output.I should get the same result in Production Environment as i get in Devlopement Environment.
2) In the Production output,an extra line is getting inserted between each and every output value line.
Could any one help me in solving this problem.
Thanks
Brahma |
|
| Back to top |
|
 |
dtf
Beginner
Joined: 10 Dec 2004
Posts: 110
Topics: 8
Location: Colorado USA
|
| Posted: Wed Jul 20, 2005 11:20 am Post subject: |
|
|
It would appear that somehow the first character is being used as carriage control. Check the RECFM in the JCL, look for FBM or FBA vs. FB. If the JCL is the same, then I would assume that there is a difference in the compile options so I would try to check to see what options are used for a production enviornment compile vs. development.
________
vaporgenie
Last edited by dtf on Tue Feb 01, 2011 1:59 pm; edited 1 time in total |
|
| Back to top |
|
|
Cogito-Ergo-Sum
Advanced
Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA
|
| Posted: Wed Jul 20, 2005 11:36 am Post subject: |
|
|
The compile options being ADV|NOADV.
_________________
ALL opinions are welcome.
Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
