Help please on ABAP YYYYMM Validation

Question

Here's my code.
*DATA DECLARATIONS                                                     *
TABLES: ZISZT_ZPDPLH, ZISZT_ZPDPLD.
PARAMETERS: pdate(6)  TYPE n OBLIGATORY,
            ccode(40) TYPE C.
DATA:     p_len TYPE I.
*&      MAIN PROGRAM                                                   *
p_len = STRLEN( pdate ).
IF     pdate+4(2) GT 12.
     MESSAGE E020 WITH 'Date format is wrong enter only YYYYMM'.
ELSEIF pdate+4(2) EQ 0.
     MESSAGE E030 WITH 'Date format is wrong enter only YYYYMM'.
ELSEIF p_len NE 6.
     MESSAGE E050 WITH 'Date format is wrong enter only YYYYMM'.
ENDIF.
As you can see I'm trying to validate the YYYYMM as a parameter. test cases of 200912 and 200700 works fine already, the errors are being displayed. But when I enter only 9 no error is displayed.
I tried to print p_len and the value is always 6 because pdate was declared as 6. If I erase 6 in the declaration there will be an error compiling because I cant get the offset the compiler says, I need to declare a lenght. I also tried to make it into an integer but apparently I can't specify a length. Help guys?

Answer 1

Hi Katrina
Please check this code, its the same as ours, the idea here is to
check for the first digit, if the user entered a value that is less than 6 digits then
the first digit will be 0.
REPORT test.
PARAMETERS: pdate(6) TYPE n OBLIGATORY,
ccode(40) TYPE C.
DATA: p_len TYPE I.
*& MAIN PROGRAM *
AT SELECTION-SCREEN.
p_len = STRLEN( pdate ).
IF pdate+(1) NE '0'.
IF pdate+4(2) GT 12.
MESSAGE E000(OO) WITH 'Date format is wrong enter only YYYYMM'.
ELSEIF pdate+4(2) EQ 0.
MESSAGE E000(OO) WITH 'Date format is wrong enter only YYYYMM'.
ELSEIF p_len NE 6.
MESSAGE E000(OO) WITH 'Date format is wrong enter only YYYYMM'.
ENDIF.
ELSE.
MESSAGE E000(OO) WITH 'Date format is wrong enter only YYYYMM'.
ENDIF.