The following entries appear in the WORKING-STORAGE SECTION:
01 DATE-TODAY.
05 YY PIC XX VALUE "90".
05 MM PIC XX VALUE "12".
05 DD PIC XX VALUE :31".
01 DATE-EDIT PIC XX/XX/XX.
MOVE DATE-TODAY TO DATE-EDIT.
(a) 901231
(b) 90/12/31
(c) 31/12/90
(d) 311290
Answers were Sorted based on User's Feedback
i have variable record in the 5th, i want to sort from 5th filed ? how ?
can we use 77 level no for Redefines?if we use give an example?
What kind of error is trapped by on size error option?
SUPPOSE I HAVE 60 CHARACTERS STING. IN THAT I WANT FIND OUT HOW MANY TIMES 'A'(ASSUME)WILL REPEATED AND I HAVE TO PASS 'E' IN PLACE OF 'A'ALONG THAT STRING.
what are the working storage fields in BMS macro?
What are ISOLATION LEVELS? Where do we need to specify them?
how can u find out just by seeing wheater it is main program or sub program ? any two ways to identify reply soon ?
Is this allowed? 01 WS-TABLE. 03 FILLER-X PIC X(5) VALUE 'AAAAA'. 03 WS-EX REDEFINES FILLER-X OCCURS 5 TIMES PIC X(1). can redefines clause be used with occurs clause?
When would you use in-line perform?
State the various causes of s0c1, s0c5 and s0c7.
What is SQL Code -904 and -903 in DB2 And how to handle it?
I have two files , file1 is input file it contains 10,20,30,....,records but i want to display the records in file 2 as reverse order .how can we do by using jcl& cobol(dont use array) please any one can tell me the answer