:: Home Page      
 Advertise your Business Here     
Browse  |   Placement Papers  |   Company  |   Code Snippets  |   Certifications  |   Visa Questions
Post Question  |   Post Answer  |   My Panel  |   Search  |   Articles  |   Topics  |   Errors
   Refer this Site  Refer This Site to Your Friends  Site Map  Contact Us      
 Categories >> Software >> MainFrame
  IBM MainFrame (3241)   IBM AS400 (627)
Suggest New Category 


Question Asked @ Answers Views     Select
A STEP has more than 1 file as INPUT. And we have to put all these records int 1 output file. How to do ? //InputF  DD DSN=ID.File1              DSN=ID.File2              DSN=ID.File3    0  7
Current version of GDG is ID.GDG.FILE.G0001V00. JCL has procedure with 2 steps like below,  What will be the output file name in each step ?  PROC starts      Step 1 has ID.GDG.FILE(+1)      Step2 has  ID.GDG.FILE(+4) PEND Similarly, JCL has 2 steps in 2 separate procedure. What will be the output file names here ?  PROC starts      Step 1 has ID.GDG.FILE(+1) PEND PROC1 starts      Step2 has  ID.GDG.FILE(+4) PEND    0  8
I have created a command that display Source file and library. Now i want that when i enter library name and press f4 on Source file, pgm should display all the PF- SRC's in that Library. For F4 option i have used Choice program but since only limited paramters are passed in Choice pgm i am not able to paas library name and further can't call a pgm that will display list of Source files. Below is the Code snippet for CMD type object :- CMD PROMPT('Source Scan for HUB Standard') PARM KWD(SOURCE) TYPE(*CHAR) LEN(1) RSTD(*YES) + VALUES(N A) MIN(1) + CHOICE('N,A') PARM KWD(SRCFILE) TYPE(FILE) RSTD(*NO) + PROMPT('SOURCE FILE') FILE: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) EXPR (*YES) + CHOICE(*PGM) + CHOICEPGM (XXXXXLIB/YYYPGM) QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) + SPCVAL((*LIBL)) EXPR(*YES) PROMPT ('Library') Below is the Choice pgm:- PGM PARM(&PARM1 &PARM2) DCL VAR(&PARM1) TYPE(*CHAR) LEN (21) DCL VAR(&PARM2) TYPE(*CHAR) LEN (2000) IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + 21 1) = 'P')) THEN (DO) /* (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + */ CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') ENDDO IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + %SST(&PARM1 21 1) = 'P') THEN (DO) CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') CALL PGM(GTSQL) PARM ('XXXXLIB') return ENDDO Thanks in Advance for looking into. hsbc   0  18
The natural file converted to PDF file if Yes then explain ?    0  27
There is subprogram and which is used in more then 200 modules. when we made changes to subprogram is it required to RESTOW all the main programs? If YES means how i can restow all 200 main programs at a time. hcl   2  68
Hello, I have created a CMD type object. In one of the fields in Display file , I would like to see All the Source files present by pass the name of Library. Tried using CHoice(Keyword) and Choicepgm on PARM , but doesn't seems to be working. Any help please.. blackrock   0  19
How can you add a particular field/coloumn in copybook? l&t   1  61
How can you add a particular field in copybook? l&t   0  33
How we can see the Data in IMS Database? hp   1  76
1)In a pf if we delete a record then how to insert a new record at the same place in that pf?? any logic or code? 2)A batch job is taking a lot of time to run,found that it is going into loop and wrapping up so how to skip that loop and process the job without changing the code? 3)In which scenario C D I R comes and C D G F comes in a job? 4)If a job came to error while processing a file how we can know at which record the error hit and how to skip that record and process other records without changing program code? jda   0  60
How converted the natural coding for adabas    0  34
How to find out the closest prime number of an input number? I believe it has something to do with SEARCH and COBOL Linear Array. infosys   0  52
In INITIALIZE what is Repalcing Word will do cts   0  55
How to read data from Nth member of a physical file containing some X number of members in it? "Provided member names are unknown"    3  208
Hi can anybody tell me about Mainframe batch testing and how is it done. I am totally new to mainframe testing. Thanks in Advance. ibm   1  205
E-Mail New Answers        Answer Selected Questions       
 [1]    2  ... 19   ... 37   ... 55   ... 73   ... 91   ... 109   ... 127   ... 145   ... 163   ... 181   ... 199   ... 217   ... 235   ... 253    Next
Un-Answered Questions
 Question Views   Select
how to know that the file has 300 records how to acess it? 192
) How do u handle errors in BMS macro 158
How to find the UNIT and VOLUME of a (a) KEPT (b) UNCATALOGED and (c) CATALOGED dataset - using (i) JCL and using (ii) ISPF ? 234
HOW to change the coloumns in XREF? 357
I have program P1 which calls file F1 which has 100 records and following structure 001 .................. 002 .................. 003 .................. 098 .................... 099 ................... 100 .................... Now I want to read these files and write these records in file F2 in following manner. 001 ...... 051 ..... 002 ...... 052 ..... 003 ...... 053 ..... .......... ....... .......... ....... .......... ....... 048 ........ 098 ...... 049 .......... 099 ....... 050 .... 100 ...... 1307
how can we apply for HSBC exam(Mainframe) in India??? i went to their site and was told to submit my CV ,. etc..( totally confusing...) 270
I am totally confused on IMS message segments. When I create a message and it contains 5 segments does the entire message have a 32k limit or does each segment have a 32k limit? Is there a setting in the stage1 sys gen that defines if a transaction can receive/send multi-segmented messages? 364
in my project..TEST is db2 8.1 version In PROD it is 7.1 if i do REORG in TEST.. can I use the same REORG jcl with out modification in PROD region (this is DB2 8.1 )? if not, what modification i need to do in my REORG control card? 175
Yes. Because the alternate key would first locate the primary key, which in turn locates the actual record. Needs twice the number of I/Os. 497
what are the secirity tools in mainframe? and let me know about the other tools and the uses of thst immediatly................ 273
have in 100 records in a file i want to read first 3 records and skip next 3 records and agan i want to read 3 records and again i want to skip 3 records... 1357
Why do we need to create an alias if we can directly use the table name? What are the benefits of referring a table name by its alias? Also, when should we go for alias and when for synonyms? 321
how do you bind the cobol with db2 386
i need a small 3d program using inline and outline. 192
E-Mail New Answers        Answer Selected Questions