Subject: | |
From: | |
Reply To: | Palmer, Elmo L |
Date: | Thu, 2 Nov 2000 08:48:21 -0800 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
I have been trying to use HPDATEFORMAT in a cobol, but haven't been successful. I am hoping someone can tell me what I am doing wrong. The following is what I have been doing but I have been getting errors.
Also I would like to know where do I look to find out the meaning of the errors that are being returned for s-info & s-subsys..
001000$control post85
001100 identification division.
001200 program-id. test.
001300 data division.
001400 working-storage section.
001600 01 indate-code pic s9(9) value 385.
002000 01 indate-yyyymmdd pic x(8) value spaces.
002100 01 status-var.
002200 05 s-info pic s9(4) comp value 0.
002300 05 s-subsys pic s9(4) comp value 0.
002700 01 format-code pic x(4) value "DAY ".
002800 01 format-day pic x(17) value spaces.
002900 01 format-date-len pic s9(9) comp value 4.
003100
003110 procedure division.
003200 format-date-para.
003300 display 'Enter the date in yyyymmdd format'.
003400 accept indate-yyyymmdd
004200 call intrinsic "HPDATEFORMAT" using
004300 indate-code indate-yyyymmdd
004400 format-code format-day format-date-len
004800 status-var
005000 display "s-info = " s-info
005001 display "s-subsys= " s-subsys
005002 display "format-date-len = " format-date-len
005010 display "format-day = " format-day
005100 display "indate-yyyymmdd = " indate-yyyymmdd
005300 stop run.
005400
:
|
|
|