| View previous topic :: View next topic |
| Author |
Message |
rakshith
Beginner
Joined: 26 Jul 2005
Posts: 32
Topics: 16
Location: bangalore
|
 Posted: Mon Oct 30, 2006 7:54 pm Post subject: converting 2 digit month to month name... |
 |
|
hi all.
is there any best technique which will convert 2 digit month to month name....
for eg:
month 01 should be converted into January
...
...
month 12 should be converted into december
thanks in advance
regards
rakshith |
|
| Back to top |
|
 |
jetson
Beginner
Joined: 07 Oct 2005
Posts: 30
Topics: 2
Location: Texas
|
| Posted: Mon Oct 30, 2006 9:13 pm Post subject: |
|
|
| What programming/application lanuguage will you be using? |
|
| Back to top |
|
|
shekar123
Advanced
Joined: 22 Jul 2005
Posts: 528
Topics: 90
Location: Bangalore India
|
| Posted: Tue Oct 31, 2006 1:37 am Post subject: |
|
|
Rakshith,
Try the code for COBOL and PL/1.
| Code: |
WORKING-STORAGE SECTION.
01 WS-DATE PIC X(06) VALUE SPACES.
01 WS-MM PIC X(02) VALUE SPACES.
01 WS-MONTH-NAME PIC X(15) VALUE SPACES.
PROCEDURE DIVISION.
ACCEPT WS-DATE FROM DATE.
MOVE WS-DATE(3:2) TO WS-MM.
EVALUATE TRUE
WHEN WS-MM = '01'
MOVE 'JANUARY' TO WS-MONTH-NAME
DISPLAY 'MONTH NAME IS:' WS-MONTH-NAME
WHEN WS-MM = '02'
MOVE 'FEBRUARY' TO WS-MONTH-NAME
DISPLAY 'MONTH NAME IS:' WS-MONTH-NAME
WHEN WS-MM = '03'
MOVE 'MARCH' TO WS-MONTH-NAME
DISPLAY 'MONTH NAME IS:' WS-MONTH-NAME
WHEN WS-MM = '04'
MOVE 'APRIL' TO WS-MONTH-NAME
DISPLAY 'MONTH NAME IS:' WS-MONTH-NAME
WHEN WS-MM = '05'
MOVE 'MAY' TO WS-MONTH-NAME
DISPLAY 'MONTH NAME IS:' WS-MONTH-NAME
WHEN WS-MM = '06'
MOVE 'JUNE' TO WS-MONTH-NAME
DISPLAY 'MONTH NAME IS:' WS-MONTH-NAME
WHEN WS-MM = '07'
MOVE 'JULY' TO WS-MONTH-NAME
DISPLAY 'MONTH NAME IS:' WS-MONTH-NAME
WHEN WS-MM = '08'
MOVE 'AUGUST' TO WS-MONTH-NAME
DISPLAY 'MONTH NAME IS:' WS-MONTH-NAME
WHEN WS-MM = '09'
MOVE 'SEPTEMBER' TO WS-MONTH-NAME
DISPLAY 'MONTH NAME IS:' WS-MONTH-NAME
WHEN WS-MM = '10'
MOVE 'OCTOBER' TO WS-MONTH-NAME
DISPLAY 'MONTH NAME IS:' WS-MONTH-NAME
WHEN WS-MM = '11'
MOVE 'NOVEMBER' TO WS-MONTH-NAME
DISPLAY 'MONTH NAME IS:' WS-MONTH-NAME
WHEN WS-MM = '12'
MOVE 'DECEMBER' TO WS-MONTH-NAME
DISPLAY 'MONTH NAME IS:' WS-MONTH-NAME
WHEN OTHER
DISPLAY 'THERE IS NO MONTH NAME'
END-EVALUATE.
STOP RUN.
|
OUTPUT
| Code: |
MONTH NAME IS:OCTOBER
|
PL/1
| Code: |
MONTPGM:PROCEDURE OPTIONS(MAIN);
DCL SYSPRINT FILE PRINT;
DCL DATETIME BUILTIN,
SUBSTR BUILTIN;
DCL WS_DATE CHAR (17) INIT(' ');
DCL WS_MM CHAR (02) INIT(' ');
WS_DATE = DATETIME;
WS_MM = SUBSTR(WS_DATE,5,2);
SELECT (WS_MM);
WHEN('01')
PUT SKIP LIST ('MONTH NAME IS JANUARY');
WHEN('02')
PUT SKIP LIST ('MONTH NAME IS FEBRUARY');
WHEN('03')
PUT SKIP LIST ('MONTH NAME IS MARCH');
WHEN('04')
PUT SKIP LIST ('MONTH NAME IS APRIL');
WHEN('05')
PUT SKIP LIST ('MONTH NAME IS MAY');
WHEN('06')
PUT SKIP LIST ('MONTH NAME IS JUNE');
WHEN('07')
PUT SKIP LIST ('MONTH NAME IS JULY');
WHEN('08')
PUT SKIP LIST ('MONTH NAME IS AUGUST');
WHEN('09')
PUT SKIP LIST ('MONTH NAME IS SEPTEMBER');
WHEN('10')
PUT SKIP LIST ('MONTH NAME IS OCTOBER');
WHEN('11')
PUT SKIP LIST ('MONTH NAME IS NOVEMBER');
WHEN('12')
PUT SKIP LIST ('MONTH NAME IS DECEMBER');
OTHERWISE
PUT SKIP LIST ('MONTH NAME IS NOT VALID');
END;
END MONTPGM;
|
OUTPUT
| Code: |
MONTH NAME IS OCTOBER
|
_________________
Shekar
Grow Technically |
|
| Back to top |
|
|
ofer71
Intermediate
Joined: 12 Feb 2003
Posts: 358
Topics: 4
Location: Israel
|
| Posted: Tue Oct 31, 2006 6:58 am Post subject: |
|
|
And here is a REXX solution:
| Code: | /* REXX */
SAY NUM2NAME(13)
EXIT
NUM2NAME:
RETURN WORD('January February March April May June July August
September October November December',ARG(1))
|
O.
________
vapor genie vaporizer
Last edited by ofer71 on Sat Feb 05, 2011 11:52 am; edited 1 time in total |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Tue Oct 31, 2006 8:01 am Post subject: |
|
|
radkrish,
Another cobol example
| Code: |
WORKING-STORAGE SECTION.
01 WS-MON-TABLE.
05 MON01 PIC X(09) VALUE 'JANUARY '.
05 MON02 PIC X(09) VALUE 'FEBRUARY '.
05 MON03 PIC X(09) VALUE 'MARCH '.
05 MON04 PIC X(09) VALUE 'APRIL '.
05 MON05 PIC X(09) VALUE 'MAY '.
05 MON06 PIC X(09) VALUE 'JUNE '.
05 MON07 PIC X(09) VALUE 'JULY '.
05 MON08 PIC X(09) VALUE 'AUGUST '.
05 MON09 PIC X(09) VALUE 'SEPTEMBER'.
05 MON10 PIC X(09) VALUE 'OCTOBER '.
05 MON11 PIC X(09) VALUE 'NOVEMBER '.
05 MON12 PIC X(09) VALUE 'DECEMBER '.
01 WS-MONTH-NAME REDEFINES WS-MON-TABLE.
05 WS-MNTH-NAME PIC X(09) OCCURS 12 TIMES.
01 WS-DATE PIC 9(06).
01 WS-MM PIC 9(02).
PROCEDURE DIVISION.
ACCEPT WS-DATE FROM DATE.
MOVE WS-DATE(3:2) TO WS-MM
DISPLAY 'CURRENT MONTH: ' WS-MNTH-NAME(WS-MM)
|
Hope this helps...
Cheers
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
