move numeric field to short numeric field

[thelearner]

Hi,

I need help, again. I have a date field, 6.0 pack, which contian mmyydd. I need to convert to ccyymmdd so I can use it for comparison.
In fix format I can just do 'move' the 2 right positions to another 2 digit field. Then I can use this new field to calculate for the century. The free format won't allow me to move from 6.0 to 2.0 field. Any suggestion will be appreciate.

Thanks

 

[thelearner]

Hi flapeyre, I'm using V5R2.

 

[flapeyre]

rapeek:

OK, we are at V5R1, so I have to use the user function instead of %DEC.


"When once you have tasted flight, you will forever walk the Earth with your eyes turned skyward, for here you have been, and there you will always long to return."

--Leonardo da Vinci

 

[thelearner]

Hi,

Ok, this is what I have. It's work and no data structure needed. However I just don't like it that I have to compare the field first.

D ccyymmdd s d
D newdate s 8s 0

// this return value in cymd format to numeric field

if cuactv > 0;

ccyymmdd = %date(cuactv:*mdy);
newdate = %int(%char(ccyymmdd:*iso0));
endif;

 

[iSeriesCodePoet]

Do you mean the 'if cuactv > 0;' Isn't that just normal error checking so it won't bomb out? That really should be in there.

iSeriesCodePoet
iSeries Programmer/Lawson Software Administrator

http://www.koldark.net

See my progress to converting to linux.

http://linux.koldark.net

 

[RedMage1967]

There is no way around having to check and see if the field is zero or not. RPG IV assumes that your trying to convert a valid date from a numeric to a date field. Therefore, it doesn't check the field prior to converting it. You're going to have to make sure the field is not zero.

RedMage1967
IBM Certifed - RPG IV Progammer

 

[flapeyre]

You can check a numeric field to see if it is a valid date, but you have to do that in fixed format. In the following example, Ftucdt is numeric, 8,0 in yyyymmdd format, and Signdate is a native date field. If the numeric date field is invalid, use today's date instead:

     C     *ISO          Test(DE)                Ftucdt         
     C                   If        Not %ERROR                   
     C                   Eval      Signdate = %DATE(Ftucdt:*ISO)
     C                   Else                                   
     C                   Eval      Signdate = %DATE             
     C                   Endif

"When once you have tasted flight, you will forever walk the Earth with your eyes turned skyward, for here you have been, and there you will always long to return."

--Leonardo da Vinci

 

[thelearner]

Ok. Thank you for all your help.

 

[flapeyre]

To clarify my previous post: not only should you be checking a numeric date to see if it's non-zero, you should be making sure it's a valid date. TEST(DE) does both.


"When once you have tasted flight, you will forever walk the Earth with your eyes turned skyward, for here you have been, and there you will always long to return."

--Leonardo da Vinci

 

[thelearner]

thank a lot flapeyre for valuable information.

 

[RedMage1967]

TEST does convert to free form:

Test(DE) *ISO FtuCdt;
If Not %Error;
  SignDate = %Date(FtuCdt:*ISO);
Else;
  SignDate = %Date();
EndIf;

Just a minor note, flapeyre, you have to have the () after the %DATE, or the compiler will error.

RedMage1967
IBM Certifed - RPG IV Progammer

 

[thelearner]

Great! Thank,RedMage1967.

 

[thelearner]

Hi RedMage1967,

This is not relate to my original post. Do you have the free form for TESTN. I want to perform check if my char. field contain digit.

Thank.

 

[RedMage1967]

rapeek,
There is no free form replacement for TESTN. You might want to try using a %CHECK, to find a digit in your string.

D Numbers            C        '0123456789'
 //-----------------------------------------------
 /Free
  
  If %Check(Number:String) > 0;  // no digits found
 //  do something

  Else;  // digits found
  // do something else
EndIf;

Does this help?


RedMage1967
IBM Certifed - RPG IV Progammer

 

[thelearner]

ok, Thanks.

 

[flapeyre]

Just a minor note, flapeyre, you have to have the () after the %DATE, or the compiler will error.

I copied and pasted that code from a V5R1 program that has been in production for 6 months. %DATE without the () does work.


"When once you have tasted flight, you will forever walk the Earth with your eyes turned skyward, for here you have been, and there you will always long to return."

--Leonardo da Vinci

 

[RedMage1967]

That's odd.


Either the compiler, or the Code/400 editor (I don't remember which) gives me an error if I omit the ().

RedMage1967
IBM Certifed - RPG IV Progammer

 

[flapeyre]

Must be Code400. I mostly use SEU because Code400 tends to crash on me.


"When once you have tasted flight, you will forever walk the Earth with your eyes turned skyward, for here you have been, and there you will always long to return."

--Leonardo da Vinci