Home      Mainframe Forum      Mainfarme Tutorials      IBM Manuals      Mainframe Interview Questions      Mainframe Books      IT News     SiteMap     Downloads


     
 
MAINFRAME - TIP OF THE DAY : Q. If there is a situation, where we need to code more than 255 steps in a JOB? A. We need to split jcl into two jcls , at the end of the first jcl check the condition code and initiate the second jcl.

Google
 
Web mainframegurukul.com

Programmers Voted for below topics.      Please Vote for good Posts. Votes Salutes
Topic Title Votes Salutes
HOW TO FIND LINKAGE LENGTH 6
SOC 7 abend - interview question 6
splitting of records using cobol 6
EJECT Verb in COBOL 5
jcl sort to add leading zeroes 5
Infosys Training Program for freshers 5
Changes in copybook 4
what is index or subscript in cobol. please give me brief ex 3
IKJ56500I COMMAND DSN NOT FOUND 3
Cobol Multiple Choice Questions By Shravan Wipro 3
Comparing two files 3
What are the issues related with correlated subqueries? 3
VSAM File status 23 ,but records are present in the file 3
Hexadecimal to decimal conversion - SORT JCL INREC OUTREC 1 1
PROCLIB 1 1
What is the difference between SYNONYM and ALIAS? 1 1
sort two files with same sort condition 1 1
What is the difference between Copy and Include? 1 1
EZtrv+ - Is there a way to suppress ez-code from printing... 1 1
Merging two files into one based on certain key fields: 1 1
what is index or subscript in cobol. please give me brief ex 1 1
Copy GDG to GDG (one to one). 1 1
Cobol Multiple Choice Questions By Shravan Wipro 1 1
jcl sort to add leading zeroes 5
VSAM File status 23 ,but records are present in the file 3
Urgent Help needed !! 3
Hexadecimal to decimal conversion - SORT JCL INREC OUTREC 3
How we can access PDS and its Members thru COBOL ? 3
How to fetch and compare the system date in JCL 2
stored procedure in cobol 2
VERTICAL ARRAY IN CICS 2
what s the difference between DB2 & ADB2? 2
What is auditing? 2
Reg DFSORT utility. 2
Computer based tutorial on IMS DB/DC 2
what is index or subscript in cobol. please give me brief ex 2
How to compare two ps files having millions of records ? 2
Cobol Multiple Choice Questions By Shravan Wipro 2
SOC 7 abend - interview question 2
How to read HEX file and convert it into decimal in REXX. 2
Various Locking mechanism for cursors and other SQL? 2
DFHAC2016 - Trans XXXX cannot run because program XXX is Not 1
EZtrv+ - Is there a way to suppress ez-code from printing... 1
How to use XREF.. 1
DB2 checkpoint-restart doubts 1
Comparing 2 files based on Acct number without using tables 1
JCL-I need to FTP from MF to Local computer 1
cics 1
sort two files with same sort condition 1
writing 2 records for each qualifying input record. 1
U4093 IMS Abend 1
Is it possible to get last modified date of PDS members... 1
Merging two files into one based on certain key fields: 1
How to run only 2 steps out of 100 steps??? 1
Corresponding statement 1
Difference between an Object Module and Load Module 1
Moving cursor to next field in ISPF dialog 1
DB2 query !! 1
JCL Interpreter :?: 1
SORT verb - help 1
Comparing Date with current date 1
How to assign System Date/Time to a parameter in a JCL pgm? 1
is the answer correct?? 1
Mainframe Developer Requirement - Coimbatore 1
Man of the year 1
Control flow from one STEP to another 1
I need to FTP from MF to UNIX 1
How to convert Julian date format into yyyymmdd date format? 1
What is the difference between Static and Dynamic Binding? 1
In jcl please help me. 1
Access DB2 region using rexx 1
Convert numeric to literal

 
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> COBOL
  View previous topic :: View next topic  
Author Message
breentha_d
Member


Joined: 10 Dec 2007
Posts: 13

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Fri Dec 21, 2007 5:08 am    Post subject: Convert numeric to literal Reply with quote

Hi,


How would you convert MM to its literal equivalent ,e.g 20020408 should be printed as APRIL08,2002.




Thanks,

Breentha
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.

dbzTHEdinosauer
Moderator


Joined: 02 Oct 2006
Posts: 954

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Fri Dec 21, 2007 2:37 pm    Post subject: Reply with quote

I have always set up a 12 item table, populate the items with month and use the numeric value of the month in the date as a subscript.

Code:

01  basic-table.
    05  filler pic x(10) value 'JANUARY'.
    05  filler pic x(10) value 'FEBRUARY'.
    05  filler pic x(10) value 'MARCH'.
    05  filler pic x(10) value 'APRIL'.
    05  filler pic x(10) value 'MAY'.
    05  filler pic x(10) value 'JUNE'.
    05  filler pic x(10) value 'JULY'.
    05  filler pic x(10) value 'AUGUST'.
    05  filler pic x(10) value 'SEPTEBER'.
    05  filler pic x(10) value 'OCTOBER'.
    05  filler pic x(10) value 'NOVEMBER'.
    05  filler pic x(10) value 'DECEMBER'.

01  MONTH-TAB
     REDEFINES
    BASIC-TABLE.
    05  MONTH-ITEM        OCCURS 12 TIMES PIC X(10).




01  WORK-AREAS.
    05  INPUT-DATE.
        10  INPUT-YEAR        PIC X(04).
        10  INPUT-MONTH       PIC 9(02).
        10  INPUT-DAY         PIC X(02).
    05  OUTPUT-DATE.
        10  OUTPUT-MONTH      PIC X(10).
        10  OUTPUT-DAY        PIC X(02).
        10  FILLER            PIC X(01) VALUE ','.
        10  OUTPUT-YEAR       PIC X(04).


...
MOVE MONTH-ITEM(INPUT-MONTH) TO OUTPUT-MONTH
...


_________________
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
breentha_d
Member


Joined: 10 Dec 2007
Posts: 13

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Sat Dec 22, 2007 4:00 am    Post subject: Pls simplify the asnwers Reply with quote

Hi,


Thanks for the explanation but it seem to be quite complicated pls simplify the answers i am new to this. I dun understand the answers given. pls provide more explaination on each step




Breentha
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
DavidatK
Active Member


Joined: 27 Mar 2007
Posts: 65
Location: Troy, MI USA

Answer was approved by Question owner.
Useful Post
0 votes
Not an useful post
Greate Post!! Salute Author
0 salutes

PostPosted: Thu Dec 27, 2007 2:00 am    Post subject: Reply with quote

Breentha,

Unfortunately, what Dick posted is just about as simple as it can get, and makes the assumption that you possess the basic programming skill set to understand the post, and fill in some basic blanks.

There are some other methods to get the same result, but
let?s stick with what Dick posted first.

I do this much like Dick does, and would have the same basic naming structure, however, ?BASIC-TABLE? is not a table, or if you prefer an array......Yet. What it is at this point a list of the month Names. If ?BASIC-TABLE? were to start in memory location 1, then the month name for calendar month 1 ?January? would occupy memory locations 1-10 with 3 training spaces, because it was defined as a field of 10 characters, Calendar month 2 ?February? would occupy memory locations 11-20 with 2 training spaces, and so on for each calendar month name. You cannot access the month names with subscript yet.

The next statement ?MONTH-TAB REDEFINES BASIC-TABLE? redefines the same memory locations as ?BASIC-TABLE? occupies, with a different structure, this time as a table with the each table item called ?MONTH-ITEM? and a variable length of 10 bytes.. So now, using subscripts, calendar month 1 ?MONTH-ITEM(1)? occupying memory locations 1-10 would contain ?JANUARY...? with the ?.? representing spaces, and MONTH-ITEM(5) occupying memory locations 51-60 containing ?MAY.......?.

Now the next statement defines areas for your input date and the new formatted date. First is your ?INPUT-DATE?, you shouldn?t have any problems with that. And the formatted ?OUTPUT-DATE?. Since you specifically asked about how to convert the MM (Month) to it?s literal name, the assumption was that you knew how to do the rest.

?MOVE INPUT-YEAR to OUTPUT-YEAR?
?MOVE INPUT-DAY to OUTPUT-DAY?

and move the month literal name to the output format.

?MOVE MONTH-ITEM(INPUT-MONTH) TO OUTPUT-MONTH? where table item
?MONTH-ITEM? for month 4 occupying memory locations 41-50 would contain ?APRIL.....?

And, now, the total formatter date would be ?APRIL.....08,2004?.

If you want the day portion of the date to float one space after the literal month name there is another whole level of complexity that needs to be added.

---

Another way of converting would not use the table method, but would still require the INPUT-DATE, OUTPUT-DATE, and the moves of the Year and Day.

Code:

EVALUATE INPUT-MONTH
  WHEN 1 MOVE ?JANUARY? to OUTPUT-MONTH
  WHEN 2 MOVE ?FERBUARY? to OUTPUT-MONTH
  WHEN 3 MOVE ?MARCH? to OUTPUT-MONTH
  :
  :
  WHEN 12 MOVE ?DECEMBER? to OUTPUT-MONTH
END-EVALUATE.


Dave
Back to top
View user's profile Send private message
Click here, If this post answer your question. <-- Click on right mark icon. If this post answer your question.
Display posts from previous:   
Post new topic   Reply to topic    mainframegurukul.com Forum Index -> COBOL All times are GMT + 5 Hours
Page 1 of 1



 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Related topics
 Topics   Replies   Author   Views   Last Post 
No new posts EZtrv+ - Is there a way to suppress ez-code from printing... 4 seagreg 8810 Wed Feb 04, 2009 10:47 am
md_shamsu View latest post
No new posts thanks 0 chintu 4615 Wed Oct 24, 2007 7:06 pm
chintu View latest post
No new posts Reg DFSORT utility. 3 ursvmg 15727 Wed Jan 17, 2007 3:17 am
Frank Yaeger View latest post
No new posts test datase empty 7 nick.mamone 13272 Wed Nov 22, 2006 6:42 pm
justaprogrammer View latest post
No new posts Xpeditor use in batch process 2 nanda_cse 13248 Sun Oct 08, 2006 6:57 pm
nanda_cse View latest post
 





Cobol Tutorial
This cobol tutorial covers most of the important topics like STRING, UNSTRING, COMP, COMP-3.....
DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. Explains in simple language. Some Chapters are locked, Forum members have free access to these chapters
CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming...
JCL Tutorial
This is most popular JCL tutorial from mainframegurukul. It does contain important jcl ....
SORT Tutorial
This Tutorial covers all important aspects of DFSORT. Has more SORT examples
INTERVIEW Questions
This page covers important interview questions
Mainframe Jobs
Mainframe Jobs posted by members of mainframegurukul forum
FaceBook Page
MainframeGurukul FaceBook Page
LinkedIn Page
MainframeGurkul Linkedin Page

This widget requires Flash Player 9 or better







Go to top of the page
 

Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  DB2 INTERVIEW QUESTIONS ||  COBOL INTERVIEW QUESTIONS  ||  JCL INTERVIEW QUESTIONS ||  JCL2 INTERVIEW QUESTIONS ||  VSAM INTERVIEW QUESTIONS ||  CICS INTERVIEW QUESTIONS  ||  Online tutorials ||  Online ABEND Reference ||  JCL References ||  COBOL References ||  VSAM References ||  Tutorials by Drona Series ||  SQL tutorial ||  BOOKS  ||  SiteMap  ||  Expeditor Tutorial  ||  FILE-AID Tutorial  ||  Changeman Tutorial  ||  COBOL   ||  DB2   ||  JCL  ||  CICS  ||  VSAM  ||  DB2 Interview Questions ( 110 )   || Simple JCL Tutorials  || JCL Tutorial from MainframeGurukul.com   || Simple JCL Tutorial - Chapter1 ;|| Mainframe Forum - Tutorials  || Mainframe Tutorials || Mainframe CICS tutorial|| Mainframe COBOL Tutorial

Drona Educational Forums - Mainframe Cobol DB2 CICS Board
Powered by phpBB

mainframetopic-3199.html