IBM MainFrame (5234)
IBM AS400 (1355)
IBM PL/1 (31) If a=1 or 2 or 3 NEXT SENTENCE ELSE move a to b. a) if A not = 1 or 2 or 3 move A to B b) if not A = 1 and 2 and 3 move A to B c) if A Not = 1 and 2 and 3 move A to B d) if A NOT = 1 or NOT=2 or NOT =3 move A to B
2 8481Total no of bytes in the following 01 rec-1 02 first-group 03 a1 pic x(4). 03 a2 pic 99. 02 second-group redefines first-group. 03 A3 pic999. 03 A4 pic 999. 02 third-group. 03 A5 occurs 5 times pic 99. A)22 B)16 C)12 D)10
3 8297Determine the total no of bytes in the following 01 rec1 . 02 a pic x(6). 02 b redefines a. 03 c occurs 6 times pic 9. 02 d occurs 4 times. 03 e pic x(5). 03 f pic 999. a)38. b)44 c)14 d)32
3 9544subscripting can be said as A) subscripting enables us to write a move compact code in the procedure division. B) subscripting enables us to refer to any element of a table by the same data name with the facility of identifying a particular element through the values of subscript. C) Subscripting reduces the no of entries to be included in the data division D) subscripting enables us to use loops in the procedure division
1 570701 A 02 B occurs 10 times 03 C pic 999. 03 D occurs 15 times 04 E pic 999. 04 F occurs 20 times 05 G pic XXX. 05 H pic 99. Determine the total no of byte in A. A) 175 B) 15480 C) 21750 D) 9065
3 9875which one of the following cannot cause more than one execution of paragraph that may be nam in statement. A) simple perform B) perform with time C) perform until D) perform varying
3 690601 T1. 02 month-day pic x(30) value ?jan,31, feb,28, mar,31, apr,30, may,31, june, 30? 02 new-day redefines month-day occurs 6 times 03 A pic xxx. 03 B pic 99. What are the content of A(3) and B(2) respectively A)mar,31 B) Feb,28 C) 28, Mar E)Mar, 28
1 7281which of the following is not true about search verb A) every search stmt must contain the AT END clause B) any no of WHEN clause can be used with this verb C) this verb can only applied to a table which is defined with the OCCURS clause and INDEXED phases. D) WHEN condition is satisfied
2 12607which are the following verb can be used to manipulate the value of an index name A) ADD B) MOVE C) SUBTRACT D) SET
4 17684GO TO stmt which of the following is not true A) GO TO stmt is not essential in the sense that it is possible to write programs without using GO TO B) The target of the GO TO stmt being a procedure name avoiding GO TO result in a program with no procedure name C) Indiscriminate use of GO TO stmt can make the control structure program substantially complex D) Too many GO TO stmts make a program difficult to understand
2 6956DB2 is a A) data base/data communication system B) data base C) RDBMS D) Programming language
4 9395AGGREGATE function support by DB2. A) SUM & AVG B) SUM, MIN & AVG C) SUM, MAX, AVG , MIN &COUNT D) NONE
2 20023how does the defining of a stored procedure effect the size of a DB2 data base A) it increases the size of a data base B) it decreases the size of a data base C) it does not effect the size of the data base D) it changes the table space structures
2 10484what is contained in the DB2 node lock file? A) data base names B) data base users names C) license keys D) server names
5 15610which authority can be granted to group of users using the GRANT stmt? A) SYSCTRL B) SYSADM C) DBCTRL D) DB ADM
3 10007
What is the difference between physical file and logical file?
How to know the particular record in pf with out reading?
I have one input file and some 40 tables, I want to read input file and compare the input file value with the table value if it is present then we have to update with new value, this should be repeated for all 40 tables and we are reading only one input file, for this is there any REXX program or job or routine to accomplish above requirement. components of the requirements; 1. One input file 2. 40 DB2 tables 3. we have to read from the input file and compare with table value, if present then update with new value (this should be recurssive for all 40 tables for every record of input file). 4. quick help is appreciated.
what is externally described file ?
what is the meaning, the advantages and which are the types of evaluate statement?
1. If there are two programs using same file and 2 users are using the file at the same time and what can be done to allow them both to access? 2. How can remove lock from the file for accessing it by both users?
can you have multiple key lists for a single file ?
What is drda ?
What is a cursor in programming?
Give the format of using and giving in sort statement. What are the restrictions with it?
how to create a changeman read only audit and update only audit Specifications for the Read only Audit 1) Read HFFD database unqualified. 2) Read FDRT, FDDM, FDAP segments. If FDAP-APP-STS is ‘2’ read the FDAV segment and get the FDAV segment which has FDAV-APV-OPTION as ‘X’ If FDAP-APP-STS is ‘5’ read the HFAC database. Read the ACRT segment qualified based on the key obtained from the FDAP segment from HFFD database. Conditions for writing into output file: a. App Type should be NEWR b. App Status should be 1, 2 & 5. c. Write 50 records per app status. For e.g. first 50 records for App status 1, 2 & 5 each The output file should contain the following fields from the database FDRT-COMP-CTRY-CODE X(03). FDRT-CUST-ID-NUM X(10) FDDM-DEM-SEQ-NUM X(01) FDAP-APP-SEQ X(02) FDAP-JNT-IND X(01) FDAP-APP-STS X(01) FDAV-APV-OPTION X(01) FDAV-APV-DT X(06) FDAV-APV-AMT X(07) ACRT-ACCT-NUM X(06) ACRT-SEG-BUS-TYPE X(02) ACRT-NM1-LAST X(19) ACRT-NM1-SS X(09) ACRT-NM1-1ST X(12) ACRT-NM1-INIT X(01) ACRT-NM1-SFX X(03) ACRT-NM1-TITLE X(02) PSB – DVAN2BMP In case you get a GE for any of the conditions, write to output file along with the details of the database segment which was not found. We need to complete this whole process by tomorrow. Run the audit in DLI mode. 2) Sort the output file created in step 1 on Cust ID, Dem Seq & App Seq. Specifications for the Update Audit 3) Take the output of step 2 as input for an update audit. Details are as follows: Read each record & check the app status. If app status is less than 2 then update the FDAP-NEW- MONEY-ENT to $25000.00 PSB - AUDBMPJ The job would be a BMP job. The test job would be run in IMSE region. Note - The proc (which will be called by the job) and the job should also be present in the change-man package itself. You’ll have a test job in your PDS along with overrides to execute the program in test regions. The job would be a DLI job. The test job would be run in IMSE region. It’ll have the following steps. 1) Delete-define output and error files. 2) Use a copybook for the output layout.
Explain what is a cursor in cics sql processing?
what is the disadvantage of using global variable?
how to retrieve the instream data in sysin?
if there is a module object , how to find the program object for this module object.Assume the module object name and program object name is not same.