Data Conversion Errors

[Stuart J. Rosenboom]

This is a cryptographically signed message in MIME format.

--------------msEB8EB807D8D0DD484E403088
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Hello All,

Background:  I have been working on a project using PowerHouse version
8.19.C3 in MPE/ix Version C.55.06 environment.  In my programs a take a
6 digit date (YYMMDD) from a Zoned Numeric field, Convert it to a
character string, add the century then convert the resulting 8 character
date to numeric and store it in a DATE type variable.  This works fine
for record selection purposes when compares to other DATE Type variables
containing parameters received from user prompts.

I am now trying to use the same calculated date for record selections
based on the System date using the SYSDATE function.  When I do this I
get Data Conversion errors on the calculated dates.  The program
functions correctly (i.e.: the calculated date is correct) but, because
of the Data Conversion Errors, the program aborts my batch jobs when I
run it in a Batch job (I check for JCW <> 0 in my stream jobs for error
trapping purposes).

Here is a brief excerpt of the code I am having problems with:

ACCESS *H850SUB0  LINK PO TO EOU-REFERNO OF *EDI85HDI OPTIONAL &
    LINK EOU-REFERNO TO EOU-REFERNO OF *EDI85DTI OPTIONAL
;
DEFINE PO_DATE CHAR*6 = ASCII(HDR_PO_DATE OF EDI85HDI,6)
DEFINE CHR_PO_DATE CHAR*8 = PACK("20" +       &     ; Y3K Bug, Job
security!
    ASCII(HDR_PO_DATE OF EDI85HDI,6))
DEFINE TRANS_DATE DATE = NCONVERT(CHR_PO_DATE)
DEFINE CHR_PO_LINE CHAR*3 = ASCII(INTENTNO,3)
;
SELECT EDI85HDI IF TRANS_DATE = SYSDATE
SELECT EDI85DTI IF CHR_PO_LINE = EOU-DETAILSEQB
;
SELECT IF NOT(RECORD EDI85DTI EXISTS)
;
SORTED ON VNCODE ON PO ON POLINE

Here are the actual values being processed in the code segment above:

> FINAL FOOTING  SKIP 03   HDR_PO_DATE PO_DATE CHR_PO_DATE TRANS_DATE
SYSDATE
> GO

?

     706  000706  20000706  07/06/2000  07/06/2000



?

Records selected:  12
Lines printed:     16
Pages printed:     2

** Data conversion errors: 6

>

Has anyone seen this type of problem before?  Is there a possible Y2K
bug in PowerHouse?

Thanks in advance,
Stuart J. Rosenboom

--------------msEB8EB807D8D0DD484E403088
Content-Type: application/x-pkcs7-signature; name="smime.p7s"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="smime.p7s"
Content-Description: S/MIME Cryptographic Signature

MIIKpQYJKoZIhvcNAQcCoIIKljCCCpICAQExCzAJBgUrDgMCGgUAMAsGCSqGSIb3DQEHAaCC
CDEwggT7MIIEZKADAgECAhB2J2d76q203JBnR7m2OWl4MA0GCSqGSIb3DQEBBAUAMIHMMRcw
FQYDVQQKEw5WZXJpU2lnbiwgSW5jLjEfMB0GA1UECxMWVmVyaVNpZ24gVHJ1c3QgTmV0d29y
azFGMEQGA1UECxM9d3d3LnZlcmlzaWduLmNvbS9yZXBvc2l0b3J5L1JQQSBJbmNvcnAuIEJ5
IFJlZi4sTElBQi5MVEQoYyk5ODFIMEYGA1UEAxM/VmVyaVNpZ24gQ2xhc3MgMSBDQSBJbmRp
dmlkdWFsIFN1YnNjcmliZXItUGVyc29uYSBOb3QgVmFsaWRhdGVkMB4XDTk5MTAxMzAwMDAw
MFoXDTAwMTAxMjIzNTk1OVowggEWMRcwFQYDVQQKEw5WZXJpU2lnbiwgSW5jLjEfMB0GA1UE
CxMWVmVyaVNpZ24gVHJ1c3QgTmV0d29yazFGMEQGA1UECxM9d3d3LnZlcmlzaWduLmNvbS9y
ZXBvc2l0b3J5L1JQQSBJbmNvcnAuIGJ5IFJlZi4sTElBQi5MVEQoYyk5ODEeMBwGA1UECxMV
UGVyc29uYSBOb3QgVmFsaWRhdGVkMTMwMQYDVQQLEypEaWdpdGFsIElEIENsYXNzIDEgLSBO
ZXRzY2FwZSBGdWxsIFNlcnZpY2UxHDAaBgNVBAMUE1N0dWFydCBKLiBSb3NlbmJvb20xHzAd
BgkqhkiG9w0BCQEWEHN0dWFydHJAaWhvdC5jb20wgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJ
AoGBAMOTAEMDgwNsYaqNhY05QIwxUEA/QHiY03sMtqFD+NjW1sdsuDiQ76iUb7Sdvcm+CZ4E
T0GJb9x1i+dFzxaSBRZhhI1CPxavV+3XJQcXNRJTAw+YVl1T7e1NC2/4dyRnllFxErK9l274
TAYL89VcUqs+dtVGTe6uT2TC+DiWV/RBAgMBAAGjggGPMIIBizAJBgNVHRMEAjAAMIGsBgNV
HSAEgaQwgaEwgZ4GC2CGSAGG+EUBBwEBMIGOMCgGCCsGAQUFBwIBFhxodHRwczovL3d3dy52
ZXJpc2lnbi5jb20vQ1BTMGIGCCsGAQUFBwICMFYwFRYOVmVyaVNpZ24sIEluYy4wAwIBARo9
VmVyaVNpZ24ncyBDUFMgaW5jb3JwLiBieSByZWZlcmVuY2UgbGlhYi4gbHRkLiAoYyk5NyBW
ZXJpU2lnbjARBglghkgBhvhCAQEEBAMCB4AwgYYGCmCGSAGG+EUBBgMEeBZ2ZDQ2NTJiZDYz
ZjIwNDcwMjkyOTg3NjNjOWQyZjI3NTA2OWM3MzU5YmVkMWIwNTlkYTc1YmM0YmM5NzAxNzQ3
ZGE1ZDNmMjE0MWJlYWMyM2VjM2ZhODMwYmFjNjJmMmQzMTE0OTk2YTNiYzQ3ZmFmM2VhNDUw
YzAzBgNVHR8ELDAqMCigJqAkhiJodHRwOi8vY3JsLnZlcmlzaWduLmNvbS9jbGFzczEuY3Js
MA0GCSqGSIb3DQEBBAUAA4GBAKbYWw0ZK/vo/GhrL+j9XUgSfXDLyQL7WSMeuMTQpZ1Oq6qd
1yfq85NOc6G1jRlkHiVNK7v/4vBcuElsWjAjtS+eouaNeHHHnfZjcOJl0r+jwKYbcxsJ9G0P
gJ7O6EKnkQgcMGY22B5UGE56yxeEoGUaFObd5AjLhm0f5R6HA/AeMIIDLjCCApegAwIBAgIR
ANJ2Lo0UDD19sqglXa/uDXUwDQYJKoZIhvcNAQECBQAwXzELMAkGA1UEBhMCVVMxFzAVBgNV
BAoTDlZlcmlTaWduLCBJbmMuMTcwNQYDVQQLEy5DbGFzcyAxIFB1YmxpYyBQcmltYXJ5IENl
cnRpZmljYXRpb24gQXV0aG9yaXR5MB4XDTk4MDUxMjAwMDAwMFoXDTA4MDUxMjIzNTk1OVow
gcwxFzAVBgNVBAoTDlZlcmlTaWduLCBJbmMuMR8wHQYDVQQLExZWZXJpU2lnbiBUcnVzdCBO
ZXR3b3JrMUYwRAYDVQQLEz13d3cudmVyaXNpZ24uY29tL3JlcG9zaXRvcnkvUlBBIEluY29y
cC4gQnkgUmVmLixMSUFCLkxURChjKTk4MUgwRgYDVQQDEz9WZXJpU2lnbiBDbGFzcyAxIENB
IEluZGl2aWR1YWwgU3Vic2NyaWJlci1QZXJzb25hIE5vdCBWYWxpZGF0ZWQwgZ8wDQYJKoZI
hvcNAQEBBQADgY0AMIGJAoGBALtaRIoEFrtV/QN6ii2UTxV4NrgNSrJvnFS/vOh3Kp258Gi7
ldkxQXB6gUu5SBNWLccI4YRCq8CikqtEXKpC8IIOAukv+8I7u77JJwpdtrA2QjO1blSIT4dK
vxna+RXoD4e2HOPMxpqOf2okkuP84GW6p7F+78nbN2rISsgJBuSZAgMBAAGjfDB6MBEGCWCG
SAGG+EIBAQQEAwIBBjBHBgNVHSAEQDA+MDwGC2CGSAGG+EUBBwEBMC0wKwYIKwYBBQUHAgEW
H3d3dy52ZXJpc2lnbi5jb20vcmVwb3NpdG9yeS9SUEEwDwYDVR0TBAgwBgEB/wIBADALBgNV
HQ8EBAMCAQYwDQYJKoZIhvcNAQECBQADgYEAiLg3O93alDcAraqf4YEBcR6Sam0v9vGd08pk
ONwbmAwHhluFFWoPuUmFpJXxF31ntH8tLN2aQp7DPrSOquULBt7yVir6M8e+GddTTMO9yOMX
taRJQmPswqYXD11YGkk8kFxVo2UgAP0YIOVfgqaxqJLFWGrBjQM868PNBaKQrm4xggI8MIIC
OAIBATCB4TCBzDEXMBUGA1UEChMOVmVyaVNpZ24sIEluYy4xHzAdBgNVBAsTFlZlcmlTaWdu
IFRydXN0IE5ldHdvcmsxRjBEBgNVBAsTPXd3dy52ZXJpc2lnbi5jb20vcmVwb3NpdG9yeS9S
UEEgSW5jb3JwLiBCeSBSZWYuLExJQUIuTFREKGMpOTgxSDBGBgNVBAMTP1ZlcmlTaWduIENs
YXNzIDEgQ0EgSW5kaXZpZHVhbCBTdWJzY3JpYmVyLVBlcnNvbmEgTm90IFZhbGlkYXRlZAIQ
didne+qttNyQZ0e5tjlpeDAJBgUrDgMCGgUAoIGxMBgGCSqGSIb3DQEJAzELBgkqhkiG9w0B
BwEwHAYJKoZIhvcNAQkFMQ8XDTAwMDcwNzA3MDUzMFowIwYJKoZIhvcNAQkEMRYEFKwkAOMn
kOcU+1w1qqD1AaeVOcf+MFIGCSqGSIb3DQEJDzFFMEMwCgYIKoZIhvcNAwcwDgYIKoZIhvcN
AwICAgCAMAcGBSsOAwIHMA0GCCqGSIb3DQMCAgFAMA0GCCqGSIb3DQMCAgEoMA0GCSqGSIb3
DQEBAQUABIGAXnStXMZFBd1hWv1XL3D5ELRR9Y8uqOvKEJuJS1f8mSjoFx/TCozQcuM7lX9A
UQJRwD07WJsdmO+slSsKie4Xd4s2UD3S1bqfJSmgbpHEXnKJzP4rfY14kNe9sktJW7Hi273C
US6oiF/16n8ZPh6TTHkmy/jflLf75/lu0NMoXbs=
--------------msEB8EB807D8D0DD484E403088--

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Subscribe: "subscribe powerh-l" in message body to majordomo@lists.swau.edu
Unsubscribe: "unsubscribe powerh-l" in message to majordomo@lists.swau.edu
This list is closed, thus to post to the list, you must be a subscriber.