Expeditor Tool : This is a debugging tool. Handly tool mostly widely used everywhere. There are two types of expediting, online exped and batch exped. For online exped, you may first need to compile and link your module. Supply your link to the... Read More

No answer available currently. Be the first one to reply to this question by submitting your answer from the form below. Read More

99999999 Read More

It will give Compilation Error, because ws-amt is not numeric field so arithmetic operation cannot be possible in ws-amt field Read More

#.1 . Here is an example for how to initialize the normal group variable . ex : 01 ws-details . 02 ws-name a(10 ) . 02 ws-desig a(5) . move spaces to ws-details . #.2 . If occurs... Read More

CALL is the statement used in the Data division Read More

In a binary search the table element key values must be in ascending or descending sequence. The table is ’halved’ to search for equal to, greater than or less than conditions until the element is found. In a sequential search the table... Read More

Yes Read More

Will take 4 bytes. Sign is stored as hex value in the last nibble. General formula is INT((n/2) + 1)), where n=7 in this example. Read More

These are compile/link edit options. AMODE - Addressing mode. RMODE - Residency mode. AMODE(24) - 24 bit addressing. AMODE(31) - 31 bit addressing. AMODE(ANY) - Either 24 bit or 31 bit addressing depending on RMODE. RMODE(24) - Resides in... Read More

In this line you have to defined WS00_RECORD_LENGTH as S9(4) comp. And when you write the statement: READ FILE-NAME this variable automatically get the record length in this variable. Read More

1) YES (In case of variable length records different records of different length must be described in more than one RDs) (2)NO(never) (3)NO(commas b/w P Q & w is not allowed) (4)NO (A command known as EXTERNAL cammand can be used to... Read More

When the body of the perform will not be used in other paragraphs. If the body of the perform is a generic type of code (used from various other places in the program), it would be better to put the code in a separate para and use PERFORM paraname... Read More

This loop will give compilation error becoz value of I is declared for only one digit , when loop reaches to 10 it will find mismatching b/w I & the current value i.e. 10. Read More

Stop statement provides a means to temporarily suspend execution of an object program...wheares STOP used with RUN causes the entire run unit to cease execution when it is encountered.... Read More

Supply the DD cards just as you would for files referred to in the main program. Read More

Logic error. e.g., a file is opened for input and an attempt is made to write to it. Read More

You can define the file as READ <FILE-NAME> PRIOR RECORD. had this been next record, you could have written READ <FILE-NAME> NEXT RECORD. Read More

Abend is short for Abnormal end, abend is a term used to describe when a program or task ends without warning. Generally when an abend is encountered the user will receive some type of error message. Error occurs because of Syntax problems or... Read More

The questions is very general. Let’s look into these possibilities: 1. QSAM (sequential) file. You can run it thru SORT utility adding SEQNUM and then sort then sort by SEQNUM in DESC order 2. VSAM: In CICS, you can read backward using... Read More

we can reverse the string using cobol prog like this : IDENTIFICATION DIVISION. PROGRAM-ID. MID. ENVIRONMENT DIVISION. DATA DIVISION. ... Read More

COMP-1 - Single precision floating point. Uses 4 bytes. COMP-2 - Double precision floating point. Uses 8 bytes. Read More

CONTINUE is like a null statement (do nothing) , while NEXT SENTENCE transfers control to the next sentence. Read More

Poor syntax. S9(3)V99 is correct and occupies 3 bytes. Count the number of 9’s add 1 and divide by 2 rounding up if necessary. ex. S9(7)v99. there are 9 nines. (9+1)/2 = 5 bytes. S9(6)V99. there are 8 nines (8+1)/2 = 4.5 = 5 bytes. ... Read More

A bind associates record types with the program work area; for run unit and records it is the first command issued in the program. Binding is a process that creates the access path logic for the sql statements within a cobol... Read More

CTR will be "12345N" becoz the given value is negative and minus sign will be store in right most digit. Read More

OUTPUT, EXTEND Read More

A Cobol Call can be done from a batch or a CICS program and is used to pass and receive data back from another cobol program. CALL XPDF321 USING PDF321-LK. would be a dynamic call (resolved at execution time), CALL ’XPDF321’ USING... Read More

write means u r inserting records in to a file move means u r passing data from one variable to another for exp a=10 b=0 move a to b now b=10. write record name here u r inserting records into file. talling is to be used for ... Read More

Yes we can Read More

It generates a bind run-unit and binds all the records for the sub-schema the program is referencing. Read More

Mismatch in LRECL or BLOCKSIZE or RECFM between your COBOL program & the JCL (or the dataset label). You will get file status 39 on an OPEN. Read More

According to my knowledge, 1) You cannot see the output of a program unless you have executed the program. but You can see the results of a CICS pgm using INTERTEST. 2) I DONT KNOW 3) Flags would be assigned a value based on some condition. While... Read More

Just use this code. //sysin dd * sort fields=COPY SUMFIELDS=NONE /* By using this we could remove the duplicate records from PS dataset. Read More

There is no TSO option for that.Go to your spool and check for the details of the job Read More

The schema is the physical arrangement of the data as it appears in the DBMS. The subschema is the logical view of the data as it appears to the application program. Read More

LENGTH acts like a special register to tell the length of a group or elementary item. Read More

This can be done in 2 ways, 1 is u can enter the date by user itself or u can excpet date form system into requried formate date/time variable, then u can get time and day into urreport generation file Read More

If you coded test before the cond is 1st checked then perform statement will execute where as in test after the perform statement will execute 1st then the cond is checked Read More

I think this Q&A should say "CONTENT" rather than "context". Read More

The END Delimiter --> END-READ END-PERFORM END-IF The INITIALIZE VERB tHE NESTED DEPENDING ON IN THE OCCURS CLAUSE NOT AT END IN THE READ STATEMENT THE ADDRESS OF... Read More

The linkage section is part of a called program that ’links’ or maps to data items in the calling program’s working storage. It is the part of the called program where these share items are defined. Read More

COMP Comp is used for Binary Representation it allows only S and 9 ... s9(01) to s9(04) it takes 2 bytes memory s9(05) to s9(09) it takes 4 bytes memory s9(10) to s9(18) it takes 8 bytes memory COMP-3 Comp-3 is used for... Read More

The set to true is done for 88 level variables to set that flag For eg: 05 ws-change-flag pic x(1). 88 ws-chg value ’Y’ 88 ws-no-chg value ’N’ when set ws-chg to true is done then... Read More

A record occurrence is the instances of a record; it is the smallest addressable unit of data. A type is the description of a record; there need not be any occurrences Read More

A junction record is a member record type that allows for many-to-many relationship between its two owner records. For a school database the CLASS record is a junction for the TEACHER and SUBJECT record types. Read More

Calc is based on a symbolic value which is used to determine the target page. Via mode is for members only. Via records are stored near to their owners. In direct mode the target is specified by the user and is stored as close as possible to... Read More

It places a record in the database based on the location mode specified. Read More

Use the SORTWK01, SORTWK02,..... dd names in the step. Number of sort datasets depends on the volume of data being sorted, but a minimum of 3 is required. Read More

Yes. Redefines just causes both fields to start at the same location. For example: 01 WS-TOP PIC X(1) 01 WS-TOP-RED REDEFINES WS-TOP PIC X(2). If you MOVE ’12’ to WS-TOP-RED, DISPLAY WS-TOP will show 1 while DISPLAY WS-TOP-RED will show... Read More

4 bytes. Read More

OS/VS Cobol pgms can only run in 24 bit addressing mode, VS COBOL II pgms can run either in 24 bit or 31 bit addressing modes. Report writer is supported only in OS/VS Cobol. USAGE IS POINTER is supported only in VS COBOL II. Reference modification... Read More

16777215 Read More

We can pass data from Cobol to JCL through registers of procedure division. Read More

Store the record then connect it to each set where it is a manual member. Read More

IDMS uses record locks to prevent another run-unit from updating the same record. Read More

nn29 means that two run units are waiting to set locks on the same record and are in deadlock. Read More

An area sweep accesses records on the basis of the physical location in a database area. It can be total, meaning a record by record search of the area, or it can be of occurrences of records of a specific type. Read More

You are current on the owner. Read More

well, generally it is not possible. Yes, we can have different PIC clauses. Eg: 05 REGULAR-EMPLOYEE. 10 LOCATION PICTURE A(8). 10 GRADE PICTURE X(4). 10 SEMI-MONTHLY-PAY PICTURE 9999V99. 10 WEEKLY-PAY REDEFINES... Read More

Display CTR will contain 12345E coz +ve sign will be stored on rightmost digit Read More

Confugration section comes under environment division Read More

In case of Move A TO B it will move whatever the value of a in to b. it mean it will move numeric, alphanumeric and alphabatic value. In case of COMPUTE B = A it will assign the vale of a in to b. but in case of compute only numeric value... Read More

Functions are called as Procedures in COBOL. Like C/C++, it is also a group of statements in a unit Read More

cobol and JAVA are two different schools of thought to get a thing done.COBOL is a language witha good amount of history.It was developed for the busineess community at large.So its features are more bent towards number crunching and file ops.COBOL... Read More

What you are talking about is a 2-phase commit. In cics you issue a CICS SYNCPOINT command with the commit option. This commits the transaction as a whole. Commits are propagated to DB2 and IMS and any other resource manager (like WebSphere MQ) that... Read More

A tablespace is not a COBOL concept it’s pure DB2. In version 8 of DB2 using a partitioned tablespace with 4096 partitions and a page size of 32K, the table space can reach 128 Tb. (that’s terabytes, 128 trillion, 128 million gigabytes,... Read More

A subscript is a working storage data definition item, typically a PIC (999) where a value must be moved to the subscript and then incremented or decremented by ADD TO and SUBTRACT FROM statements. An index is a register item that exists outside the... Read More

External sort is performed by SORT pgm. Internal sort gives you data handling flexibility and it takes less secondary memory. For huge Volume of files it’s better to use internal sort else large amount of space will be required in external sort... Read More

COMP Usage is used for data items of numeric type. There are 4 types of COMP usage. 1.COMP : Used only for integers.Either half word or full word . 2.COMP -1 :Used for floating points.Internal representation is hexa decimal.full word is used.No... Read More

ACCEPT WS-ACCEPT-DATE FROM DATE. ACCEPT WS-ACCEPT-TIME FROM TIME. declare ws-accept-date and ws-accept-time in working-storage section Read More

Do u know, any company who gives access to his/her IBM Mainframe computer (s 3090) at home PC. I want to run Cobol2,CICS and DB2 only for enhance my skills. I Can afford mix ($150... Read More

The REDEFINES clause cannot be used in a level 01 entry in the File Section. Read More

Please don’t forget that u cannot pass a Index via linkage section as it is not defined in the working storage section. It is something defined by the system. Read More

Terminators like END-PEROFRM END-EVALUTE are called explicit scope terminaotr available in COBOL 85. Read More

The PERFORM and END-PERFORM statements bracket all COBOL II statements between them. The COBOL equivalent is to PERFORM or PERFORM THRU a paragraph. In line PERFORMs work as long as there are no internal GO TOs, not even to an exit. The in line... Read More

Scope terminators are mandatory for in-line PERFORMS and EVALUATE statements. For readability, it’s recommended coding practice to always make scope terminators explicit. Read More

INITIALIZE moves spaces to alphabetic fields and zeros to alphanumeric fields. The REPLACING option can be used to override these defaults. Read More

In local there is no IDMS System running above the DBMS. It is the more efficient mode but lacks the recovery and integrity facilities of the central version (CV) control program. In CV many application programs access the database through a single... Read More

A run-unit is a logical unit of work; it is analogous to a CICS task. Read More

Yes, COBOL is for business use. Yes, it is still in use. COBOL programs are used bcoz it is business oriented language, more flexible, easy to code and easy to understand. COBOL sheet is depends on editor and compiler. Read More

An OOK-Rec is a one of a kind record set, used to get to another record set Read More

A set is an owner record and, optionally, its member records. There are three types of pointers: next, prior and owner, but only next is required. There are five possible orders for arrangements of sets; they are: first - insert at beginning, last -... Read More

It writes a checkpoint to the Journal File and releases any record locks. Read More

It rolls back (reverses) all database updates to the point of the last rollback or to the beginning of the run-unit. Read More

It releases all database resources, terminates database processes, writes statistical information to IDMS and logs the checkpoint. Read More

IDD is the Integrated Data Dictionary. It contains information about the elements, record types, sets, maps and dialogues within the database. Read More

0307 is end-of-set and 0326 is record not found. 0307 is end-of-set and 0326 is record not found. Read More

The old joke - where the programmer thinks he is, but the DBMS knows he is not. Currency is the location within the database during run-unit execution. There are four levels of currency: current of run-unit is the record occurrence of the last... Read More

IDENTIFICATION DIVISION, ENVIRONMENT DIVISION, DATA DIVISION, PROCEDURE DIVISION. Read More

Alpha-numeric (X), alphabetic (A) and numeric (9). Read More

Alphabetic, Alphanumeric fields & alphanumeric edited items are set to SPACES. Numeric, Numeric edited items set to ZERO. FILLER , OCCURS DEPENDING ON items left untouched. Read More

Elementary level item. Cannot be subdivisions of other items (cannot be qualified), nor can they be subdivided themselves. Read More

For condition names. Read More

For RENAMES clause. Read More

01 ARRAYS. 05 ARRAY1 PIC X(9) OCCURS 10 TIMES. 05 ARRAY2 PIC X(6) OCCURS 20 TIMES INDEXED BY WS-INDEX. Read More

Subscript refers to the array occurrence while index is the displacement (in no of bytes) from the beginning of the array. An index can only be modified using PERFORM, SEARCH & SET. Need to have index for a table in order to use SEARCH, SEARCH... Read More

It can be either ASCENDING or DESCENDING. ASCENDING is default. If you want the search to be done on an array sorted in descending order, then while defining the array, you should give DESCENDING KEY clause. (You must load the table in the specified... Read More

Search on a sorted array. Compare the item to be searched with the item at the center. If it matches, fine else repeat the process with the left half or the right half depending on where the item lies. 14. My program has an array defined to have... Read More

Syntax: SORT file-1 ON ASCENDING/DESCENDING KEY key.... USING file-2 GIVING file-3. USING can be substituted by INPUT PROCEDURE IS para-1 THRU para-2 GIVING can be substituted by OUTPUT PROCEDURE IS para-1 THRU para-2. file-1 is the sort work... Read More

Performing a SECTION will cause all the paragraphs that are part of the section, to be performed. Performing a PARAGRAPH will cause only that paragraph to be performed. Read More

EVALUATE EVALUATE SQLCODE ALSO FILE-STATUS WHEN A=B AND C=D WHEN 100 ALSO ’00’ imperative stmt imperative stmt WHEN (D+X)/Y = 4 WHEN -305 ALSO ’32’ imperative stmt imperative stmt WHEN OTHER WHEN OTHER imperative stmt... Read More

After the execution of one of the when clauses, the control is automatically passed on to the next sentence after the EVALUATE statement. There is no need of any extra code. Read More

Yes Read More

Scope terminator is used to mark the end of a verb e.g. EVALUATE, END-EVALUATE; IF, END-IF. Read More

PERFORM ... ... END PERFORM Read More

Basically you need to correct the offending data. Many times the reason for SOC7 is an un-initialized numeric item. Examine that possibility first. Many installations provide you a dump for run time abends (it can be generated also by calling... Read More

Packed Decimal fields: Sign is stored as a hex value in the last nibble (4 bits ) of the storage. Zoned Decimal fields: As a default, sign is over punched with the numeric value stored in the last bite. Read More

It is stored in the last nibble. For example if your number is +100, it stores hex 0C in the last byte, hex 1C if your number is 101, hex 2C if your number is 102, hex 1D if the number is -101, hex 2D if the number is -102 etc... Read More

In the most significant bit. Bit is on if -ve, off if +ve. Read More

COMP is a binary storage format while COMP-3 is packed decimal format. Read More

No picture clause to be given. Example 01 WS-VAR USAGE COMP-1. Read More

Both C and COBOL are structured programming languages but in C language we can use pointers concept which is not possible in COBOL. Read More

Will occupy 8 bytes (one extra byte for sign). Read More

Causes the item to be aligned on natural boundaries. Can be SYNCHRONIZED LEFT or RIGHT. For binary data items, the address resolution is faster if they are located at word boundaries in the memory. For example, on main frame the memory word size is 4... Read More

Fixed Block File - Use ORGANISATION IS SEQUENTIAL. Use RECORDING MODE IS F, BLOCK CONTAINS 0 . Fixed Unblocked - Use ORGANISATION IS SEQUENTIAL. Use RECORDING MODE IS F, do not use BLOCK CONTAINS Variable Block File - Use ORGANISATION IS SEQUENTIAL... Read More

Can rewrite (record length must be same), but not delete. Read More

In static linking, the called subroutine is link-edited into the calling program, while in dynamic linking, the subroutine & the main program will exist as separate load modules. You choose static/dynamic linking by choosing either the DYNAM or... Read More

These are compile/link edit options. Read More

DYNAM. Read More

Move a value to RETURN-CODE register. RETURN-CODE should not be declared in your program. Read More

Write JCL cards to a dataset with //xxxxxxx SYSOUT=(A,INTRDR) where ’A’ is output class, and dataset should be opened for output in the program. Define a 80 byte record layout for the file. Read More

For RENAMES clause. Read More

IS NUMERIC can be used on alphanumeric items, signed numeric & packed decimal items and usigned numeric & packed decimal items. IS NUMERIC returns TRUE if the item only consists of 0-9. However, if the item being tested is a signed item, then... Read More

A RESIDENT program is one that is loaded into the CICS cashe. This will improve the performance of the application by not having to re-load them into memory. Read More

I think no. Because search and search all is used only for array or table and we can,t use array or table application in embedded sql. Read More

if you have an array with 10 elements like this : int a[] = {1,2,3,4,5,6,7,8,9,10}; To access the 5th element, you need to write a[4]. Because, Array index starts from 0. In this case 0th element is 1, 1st element is 2.. etc Read More

2nd option for 12300000000000000000 01 a pic x(20) value ’123’. procedure division. inspect a replacing all space by zero. display a. 2nd question for 123----------------- 01 a pic x(20) value ’123’. ... Read More

Locks are released by a change in currency or by a commit, rollback or finish command. Read More

Mandatory and optional. Read More

Locks may be shared or exclusive. Shared means that other run units can retrieve the record but can not modify it. Exclusive means that other run units can neither retrieve nor modify it. Recordlocks may be implicit or explicit. Implicit locks are... Read More

Find tells you whether the record is actually in the database. If it is not found you save the overhead of an obtain. Read More

No. The mode is specified via the SYSCTL DD card in the JCL. Read More

No difference. There is a difference between obtain first and obtain next for an area sweep, but not when current on the owner in a set. Read More

HIGH-VALUES and LOW-VALUES are figurative constants. In HIGH-VALUES, all the bits in the byte are on ie:FFFFFFFFIn LOW-VALUES, all the bits in the byte are off. ie. 00000000.I’ve mostly see it used in sequential updating of a master file. Read More

The size of Variable Length Record changes from Computer to Computer, so there is no specific limit. 4096k is the max variable length record Read More

ws-va2 is redefined with wa-var1,where wa-var1 is not decalred,then it will b a error. if it is typo error and ws-va2 is redefined to ws-va1,then both the values will b abcde :-) Read More

NEXT SENTENCE gives control to the verb following the next period. CONTINUE gives control to the next verb after the explicit scope terminator. (This is not one of COBOL II’s finer implementations). It’s safest to use CONTINUE rather... Read More

EVALUATE can be used in place of the nested IF THEN ELSE statements. Read More

Partial list: REMARKS, NOMINAL KEY, PAGE-COUNTER, CURRENT-DAY, TIME-OF-DAY, STATE, FLOW, COUNT, EXAMINE, EXHIBIT, READY TRACE and RESET TRACE. Read More

COPY AR00RB REPLACING ==:AR00:== BY ==AMBS==. AR00RB COPY BOOK AS FOLLOWS AS (iam copying only few lines of code) 01 :AR00:RB-WORK-AREA 03 :AR00:RB-IO-REQUEST PIC S9(04) BINARY VALUE ZERO 88 ... Read More

Regarding Server Move Read More

A page is the smallest unit of storage in an IDMS database. Read More

The READY prepares a database area for access by DML functions. Read More

Autostatus is a protocol mode which causes the expansion of each DML statement to include a perform IDMS-Status statement. Read More

It will connect to all sets where it is defined as an automatic member. The store requires that currency be established for all these set occurrences. Read More

SEARCH - is a serial search. SEARCH ALL - is a binary search & the table must be sorted ( ASCENDING/DESCENDING KEY clause to be used & data loaded in this order) before usingSEARCH ALL. Read More

Evaluate is like a case statement and can be used to replace nested Ifs. The difference between EVALUATE and case is that no ’break’ is required for EVALUATE i.e. control comes out of the EVALUATE as soon as one match is made. Read More

CONTINUE is like a null statement (do nothing) , while NEXT SENTENCE transfers control to the next sentence (!!) (A sentence is terminated by a period) Read More

Does nothing! If used, must be the only sentence within a paragraph. Read More

In COBOL II: 16777215 Read More

Open for INPUT, OUTPUT, I-O, EXTEND. Read More

These are compiler options w.r.t subscript out of range checking. NOSSRANGE is the default and if chosen, no run time error will be flagged if your index or subscript goes out of the permissible range. Read More

DB2 precompiler (if embedded sql used), CICS translator (if CICS program), COBOL compiler, Link editor. If DB2 program, create plan by binding the DBRMs. Read More

In non-CICS environment, it is possible. In CICS, this is not possible. Read More

Alphabetic, Alphanumeric fields & alphanumeric edited items are set to SPACES. Numeric, Numeric edited items set to ZERO. Fillers, Occurs DEPENDING ON items left untouched. Read More

In static linking, the called subroutine is link-edited into the calling program , while in dynamic linking, the subroutine & the main program will exist as separate load modules. You choose static/dynamic linking by choosing either the DYNAM or... Read More

Yes we can use redefines clause in occurs clauseeg:01 number1 pic x(10) value spaces.01 number2 redefines number1 pic x occurs 10 times. Read More

The Closest group move statement would be MOVE CORRESPONDING. MOVE CORRESPONDING GROUPA TO GROUPB where, 01 GROUPA 02 NAME PIC A(10) 02 AGE PIC 99 02 GROUPB 02 ST-DETAILS 03 NAME PIC A(10) 03 AGE PIC 99 02... Read More

Redefines clause can be used at 01 Level. However the variable you are Redefining must also be declared at the Level. Infact only at 01 level you can redefine a part of the variable instead of having to Redefine for the entire length. Read More

comp is :- 1 TO 4 = 2 BYTES,5 TO 9 = 4 BYTES,10 TO 18 = 8 BYTES. comp-4 :- maximum limit is 9(18) and it is taking according to the pic Clause. Read More