Re: Special values in a command definition for DATE and TIME

Thanks Buck.
It has been a Loooooonnnnng time since I have done this.

Jeff Young
Sr. Programmer Analyst

On Fri, Oct 21, 2016 at 3:21 PM, Buck Calabro <kc2hiz@xxxxxxxxx> wrote:

On 10/21/2016 2:00 PM, Jeff Young wrote:

Using the information provided, I created a test command and program to
determine what data is passed:
This is my CL program:
PGM PARM(&p01)
dcl &p01 *char 26
chgvar &p01 &p01
return
ENDPGM

Using the default values, I get this in my input parm:
Time period for log output:
Start time and date:
Beginning time . . . . . . . . *AVAIL Time, *AVAIL
Beginning date . . . . . . . . *CURRENT Date, *CURRENT, *BEGIN
End time and date:
Ending time . . . . . . . . . *AVAIL Time, *AVAIL
Ending date . . . . . . . . . *CURRENT Date, *CURRENT, *END
EVAL &p01
&P01 = ' 2359590040000 000'
EVAL &p01 :x
00000 00020015 00060002 F2F3F5F9 F5F9F0F0 - ........23595900
00010 F4F0F0F0 F00002F0 F0F0.... ........ - 40000..000......

What am I missing?

ELEM creates a list; that's what those binary values are in front of the
parameter. (x'0002', x'0015', x'0006', x'0002') The sample Glenn
provided is a list of lists, so there are multiple offsets.

PERIOD is made up of a list (E01C5)
E01C5 is made up of a list of E01FF and a list of E0272 (outer list)
E01FF is made up of a list of a *TIME and a *DATE (inner list 1)
E0272 is made up of a list of a *TIME and a *DATE (inner list 2)

All that stuff is in here: 'Defining CL commands'
http://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/rbam6/defcm.htm

In particular, an explanation of the offsets is here: 'Using CL or other
HLLs for lists within lists'
http://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/
rbam6/defdlclhll.htm

--buck

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.