ALLInterview.com :: 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  5
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  5
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  16
The natural file converted to PDF file if Yes then explain ?    0  26
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  65
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  58
How can you add a particular field in copybook? l&t   0  32
How we can see the Data in IMS Database? hp   1  75
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  57
How converted the natural coding for adabas    0  33
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  50
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  207
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  202
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
 
is there any other way to install s/w in mainframe apart from smp/e system? 588
how to convert the recors form vsam file to db2 table tru file aid 600
i tried to copy some records from microsoft excel to as-400 physical file through "Bosanova" emulation. Out of 14000 records only 12000 records copies and subsequently programe started to hang. Then, i closed the program forcefully. I did' under stand the problem. Also when i try to compile the physical file it is showing as "The file in use". How to overcome this problem? 477
IIN APITUDE THEY GAVE ONLY 10 QUESTIONS.. THEY ARE SIMPLE ONE FROM NUMBER SERIES,BOATS,TIME & DISTANCE,PROFIT &LOSS,FIND OUT THE NUMBER ? 9 25 4 36 81 64 49 AND surveillance SPELLINGS E.T.C 187
1.give the details about WHEN OTHER. 2. how many form are available in evaluate. 185
how do we prepare test data using file-aid tool? 594
what is the compile process of cobol program expalin with code 215
Name a few IBM utility programs, and explain its function. 500
WHAT IS THE PROCESS OF "CLAIM PROCESSING SYSTEM" 494
How to compare two files in SYNCSORT and on the mismatch record should be deleted from second file. 876
example for sub strings ? and refernce modifications whit output pls 263
Please any one can tell me,What are the tools for pl/1 project in real time scenario?(what are the version control,debugging and files related tools)? 215
How to move a field DT 9(8) of input file to DT 9(8) COMP-3 in output file in ezytrieve? in the output file entire dt is not moved.If any answer plz reply as soon as possible. 320
PLEASE SEND ME THE DOCUMENTS IF ANY ONE HAVE REGARDING THE IMPACT ANALYSYS,REVIEWS 375
RETRIVING DELETED RECORDS :- I'm frequently asked how to retrieve deleted records from an unjournaled physical file when the deleted records have not yet been removed from the file. Utility UNDEL lets you undelete records in a physical file. This public domain program is available in CISC and RISC versions, and the complete source code is available for download at: UNDEL for AS/400 Save File (RISC): http://www.as400network.com/sharewarefiles/undelris.zip UNDEL for AS/400 Save File (CISC): http://www.as400network.com/sharewarefiles/undel.zip UNDEL for AS/400 Save File (Source code): http://www.as400network.com/sharewarefiles/undelsrc.zip The utility takes advantage of the fact that deleted records in physical files are only flagged as deleted, and the record data still exists until it is overwritten or the file is reorganized with a utility such as RGZPFM. UNDEL simply reads the deleted record, then reuses the record by writing over it with the new record (thus eliminating the flag for the deleted record). Some homegrown and commercial utilities copy the file containing undeleted records to a save file, then use a program to read the save file, which contains live and undeleted records, to a file to undelete the records. The UNDEL utility is superior to the SAVF technique because there's no need to copy the file to a save file, which is especially important for really large files. When run, UNDEL displays the physical file records in their unformatted, raw text form. You can either position the display to a given relative record number or use F19 or F20 to find the previous and next deleted record, respectively. The utility also includes online help, which is almost unheard of for free utilities. Other utilities include the ability to undelete records. You can use the RTVDLTRCD command in the old QUSRTOOL (no longer supported by IBM). QUSRTOOL is now a commercial product called TAA Productivity Tools ( http://www.taatool.com ). The free file editor WRKDBF has a built-in undelete capability ( http://www.wrkdbf.com ), and several commercial file editors can undelete records. For a complete list of file editors, go to http://www.sourcebook400.com, select "Programmer Tools" under "Product Category," then select "File Editors." 2716
E-Mail New Answers        Answer Selected Questions