1. The internal storage of 01 A PIC 99 VALUE 23 is 'F2F3'. //In HEX
Like this what is the internal format of 01 B PIC X(5) VALUE "AaBbZ". (In HEX)
2. What is the deifference in the following JCL EXEC Statements?
a) //STEP1 EXEC PGM=MAC
b) //STEP1 EXEC MAC
When should I use a and when b ? Can I use PARM parameter with both?
Joined: 26 Nov 2002 Posts: 12367 Topics: 75 Location: San Jose
Posted: Tue Apr 22, 2003 4:10 pm Post subject:
Macmillan,
Code:
1. The internal storage of 01 A PIC 99 VALUE 23 is 'F2F3'. //In HEX
Like this what is the internal format of 01 B PIC X(5) VALUE "AaBbZ". (In HEX)
Answer:C181C282E9
Code:
2.What is the deifference in the following JCL EXEC Statements?
a) //STEP1 EXEC PGM=MAC
b) //STEP1 EXEC MAC
When should I use a and when b ? Can I use PARM parameter with both?
Answer: 'a' is running a program MAC and 'b' is running a catalogued procedure named MAC.The PARM parameter is used to pass variable information to the program being executed in a job step.The processing program must contain instructions to retrieve the information and take advantage of it.PARM values are program-specific; that is, each program expects a different parm or possibly no parm at all.
Joined: 07 Feb 2003 Posts: 266 Topics: 1 Location: Edison, NJ USA
Posted: Thu Apr 24, 2003 3:39 pm Post subject:
Kolushu,
Are you experiencing discomfort in the ligaments in your knee? I get the distinct feeling that your leg is being pulled. Perhaps by someone in that "other" forum?
1. Can you please give me a sample JCL to compile an OS/VS COBOL program?
2. And a sample JCL to compile a IBM COBOL for OS/390 program?
3. And a sample JCL to compile a ENTERPRISE COBOL FOR Z/OS program?
4. And a sample JCL to compile a COBOL/370 program?
5. And a sample JCL to compile a C/390 program?
6. How many processors available in s/390 MP3000 & G5?
7. What is the speed of s/390?
8. What is parallel Syplexing?
9. What is the maximum storage space can be used (Hard disk) with s/390?
10. What is VSAM string? Please give some details about that?
11. What is the name of the TSQ, which contains the formatted Dump of the abended CICS Program?
12. What is PDF in ISPF(Program development facility)? What is the advantage & functions of PDF?
13. Can I pass a VALUE (literal -instead of variable) to a subprogram while call by content?
Ex: CALL "PGM01" BY CONTENT 4.
PGM01 is a subpgm with PROCEDURE DIVISION USING A (a PIC 99 variable).
You previously answer as NO. But IBM manual said that pass by value is ok (only is BY CONTENT). Can you please check it for me in your terminal. (Sorry, My Proj Lead doesn't allow to write my own cobol program. He thinks, he knows everything. But he doesn't allow me to ask this type of questions, 'Cause he doesn't know the answer!!)
14. Can I use Language Environments in VS COBOL II?
15. Can I ACCEPT from SYSIN?
a) External Floating Point (ex: 01 A PIC 9V99E99)
b) Internal Floating Point (ex: 01 B USAGE COMP-1)
c) Pointer data item (ex: 01 C USAGE POINTER)
16. PROGRAM-ID. A.
...
PROGRAM-ID. B.
01 VARA PIC 9 GLOBAL.
END-PROGRAM. B.
PROGRAM-ID. C.
END-PROGRAM. C.
END-PROGRAM. A.
My question is Whether VARA is available in C. (C not contains B, but A contains B & C) Please don't tell to declare in PROGRAM A
17. Can I use '@' Symbol as my CURRENCY SIGN in VS COBOL II. (CURRENCY SIGN IS "@".) please remember @ is not in vs cobol II character set
18. Can I open a VSAM file in OUTPUT Mode if the file is already exist (in VS COBOL II). If I open that, whether the old contents are deleted or not. How can I DEFINE a VSAM file to be REUSABLE?
Last edited by mcmillan on Tue Jun 03, 2003 1:21 pm; edited 1 time in total
Joined: 26 Nov 2002 Posts: 12367 Topics: 75 Location: San Jose
Posted: Thu Apr 24, 2003 5:32 pm Post subject:
Mcmillan,
Please do some homework. Usually I have lot of patience at answering questions.Every post of yours has atleast 10 questions in each post and by now I would have answered 50 questions just for you.Even after that you are not referring the manuals . From the latest questions you had questions 1 thru 5 can be found in the respective manuals.questions 6 thru 9 are not of concern to the programmer. As a matter of fact I myself am not bothered to find out the hardware details of the S/390.Unless your interest is being a systems programmer I do not see any purpose knowing the hardware stuff.I had answered the questions about ACCEPT at least 3 times and you still come with the same question every time.We are here to answer at our spare time. Rightnow I am swamped with so much work that I hardly have time to answer. Enough of my rant. Here are the answers
Code:
1. Can you please give me a sample JCL to compile an OS/VS COBOL program?
Answer: I don't have any sample JCL and even IBM does not have OS/VS COBOL Manuals online.
Code:
2.And a sample JCL to compile a IBM COBOL for OS/390 program?
9. What is the maximum storage space can be used (Hard disk) with s/390?
Answer: refer answer of question 6 & 7
Code:
10. What is VSAM string? Please give some details about that?
Answer: Strings (sometimes called place holders) are like cursors, each represents a position in the data set and are like holding your finger in a book to keep the place. The same ACB(Access Control Block) is used for all requests, and the data set needs to be opened only once. This means, for example, you could be processing a data set sequentially using one RPL(Request parameter list), and at the same time,using another RPL, directly access selected records from the same data set.
Keep in mind, though, that strings are not "owned" by the RPL any longer than the request holds position. Once a request gives up position (for example, with an ENDREQ), that string is free to be used by another request and must be repositioned in the data set by the user.
For each request, a string defines the set of control blocks for the exclusive use of one request. For example, if you use three RPLs, you should specify three strings. If the number of strings as needed by the concurrent requests for the ACB
For each request, a string defines the set of control blocks for the exclusive use of one request. For example, if you use three RPLs, you should specify three strings. If the number of strings you specify is not sufficient, and you are using NSR(Nonshared resources), the operating system dynamically extends the number of strings as needed by the concurrent requests for the ACB. Strings allocated by dynamic string addition are not necessarily in contiguous storage.
Dynamic string addition does not occur with LSR(Local shared resources) and GSR(Global shared resources). Instead, you get a logic error if you have more requests than available strings.The maximum number of strings that can be defined or added by the system is 255. Therefore, the maximum number of concurrent requests holding position in one data set at any one time is 255.
Code:
12. What is PDF in ISPF(Program development facility)? What is the advantage & functions of PDF?
Answer: PDF stands for Program Development Facility.An IBM licensed program used with ISPF to provide a work environment for the development of programs and the use of functions like Edit and Browse.Synonym for ISPF/PDF, Interactive System Productivity Facility/Program
Development Facility.
Code:
14. Can I use Language Environments in VS COBOL II?
Answer: YES
Code:
15. Can I ACCEPT from SYSIN?
a) External Floating Point (ex: 01 A PIC 9V99E99)
b) Internal Floating Point (ex: 01 B USAGE COMP-1)
c) Pointer data item (ex: 01 C USAGE POINTER)
Answer: You can ACCEPT any group item, or an elementary alphabetic, alphanumeric, alphanumeric-edited, numeric-edited or external decimal item..None of the items listed above match the condition.
Code:
16. PROGRAM-ID. A.
...
PROGRAM-ID. B.
01 VARA PIC 9 GLOBAL.
END-PROGRAM. B.
PROGRAM-ID. C.
END-PROGRAM. C.
END-PROGRAM. A.
My question is Whether VARA is available in C. (C not contains B, but A contains B & C) //Please don't tell to declare in PROGRAM A
Answer: NO
Code:
17. Can I use '@' Symbol as my CURRENCY SIGN in VS COBOL II. (CURRENCY SIGN IS "@".) //please remember @ is not in vs cobol II character set
Answer: Yes, but you need to specify that as special names.
ex:
Code:
SPECIAL-NAMES.
CURRENCY SIGN IS '@'.
WORKING-STORAGE SECTION.
01 A PIC @@@,@@9.
Code:
18. Can I open a VSAM file in OUTPUT Mode if the file is already exist (in VS COBOL II). If I open that, whether the old contents are deleted or not.
How can I DEFINE a VSAM file to be REUSABLE?
Answer: To open a file that has never contained records (an empty file):
Use OPEN OUTPUT for ESDS files. Use OPEN OUTPUT or OPEN EXTEND for KSDS and RRDS files. (Either coding has the same effect.) If you have coded the file for random or dynamic access, you can also use OPEN I-O if the file is optional.
To open a file that already contains records (a loaded file):
Use OPEN INPUT, OPEN I-O, or OPEN EXTEND.For an ESDS or RRDS file opened EXTEND, the added records are placed after the last existing records in the file.For a KSDS file opened EXTEND, each record you add must have a record key higher than the highest record in the file.A file that once contained records, all of which have been deleted, can be opened as I-O or EXTEND.
Check the following JCL to define a vsam cluster to be reusable.
Joined: 22 Dec 2002 Posts: 64 Topics: 28 Location: Chennai
Posted: Sun Apr 27, 2003 9:31 am Post subject:
Mcmillan,
For the question you have asked, the answer can be found in every basic JCL book. Please ask questions after referring some books and if you dont find the answer enywhere.
Anyway, I will answer this for you.
EXEC PGM=IDKR
This means that you are executing a program with the name IDKR.
You can pass the values for the program thru PARM keyword.
EXEC IDKR
This means that IDKR is a PROC. The proc will be having some steps.
You can directly pass the values to the proc.
Joined: 26 Nov 2002 Posts: 12367 Topics: 75 Location: San Jose
Posted: Sun Apr 27, 2003 11:31 am Post subject:
Mcmillan,
Please read the answers. I had answered the last question of yours on 22 Apr 2003 04:10 pm,Post no: 507.Please for god's sake don't keep posting questions which are already answered.
Ranjish: you are partially correct, but the parms you are trying to pass to the proc are the symbolic parameters. check my post no: 507 for explanation on passing parms to the proc.
Joined: 26 Nov 2002 Posts: 12367 Topics: 75 Location: San Jose
Posted: Tue Apr 29, 2003 6:12 am Post subject:
Ranjish,
My post no 507 is just a couple of posts above in the same topic.It is the 18th post in this topic.Right now this board does not have the feature of searching the posts by relative number.sorry about that.
All times are GMT - 5 Hours Goto page Previous1, 2, 3, 4Next
Page 2 of 4
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
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
