COBOL and JCL Programming Quiz

To modify records in a file using REWRITE or DELETE statements, you must open the file in I-O (Input-Output) mode. OUTPUT mode creates new files, EXTEND adds records to the end, and INPUT only allows reading.

The picture clause $ZZZZ9.99- uses Z editing symbols to suppress leading zeros with spaces, inserts a fixed $ sign at the left, displays the decimal point explicitly, and shows a trailing minus sign for negative numbers. This produces the exact format "$ 234.56-" when the value is negative.

The PERFORM VARYING loop iterates with C starting at 1 and incrementing by 1 until C equals 6. Since the condition UNTIL C = 6 is checked before each iteration, the loop runs for C = 1, 2, 3, 4, 5 (5 iterations), and stops when C becomes 6. Therefore RESULT = 5.

In COBOL, END-CALL is an optional scope terminator that simply marks the end of a CALL statement. It has no special functional effect on the called program or its working storage. The CALL statement executes normally regardless of whether END-CALL is present.

When STOP RUN is executed in any program in the call chain, it immediately terminates the entire run unit and returns control to the operating system. Control does NOT return to the calling program (Program A). This is different from GOBACK or EXIT PROGRAM, which return control to the caller.

S0C7 is a data exception abend that occurs when a program attempts to perform invalid numeric operations, such as moving alphabetic data into a numeric field or doing arithmetic on non-numeric data. S0C1 is an operation exception, S0C4 is a protection exception, and S0CB is a division exception.

A COBOL program can execute in both CICS (online) and batch (JCL) environments, but only if it avoids environment-specific statements. It must use common verbs that work in both contexts, avoiding CICS-specific commands like EXEC CICS or batch-only constructs.

COMP (binary) usage uses 2, 4, or 8 bytes depending on the number of digits specified. S9(6) has 6 digits, which requires 16 bits (2 bytes) to store in binary format. The S indicates a signed number. COMP is equivalent to BINARY.

POINTER is a special COBOL usage type that stores addresses (pointers to data areas). Regardless of the platform, POINTER always occupies 4 bytes of storage. This is standard across mainframe COBOL implementations.

In COBOL, index variables cannot be displayed like normal variables using DISPLAY statements. They are special data types used for table references and must be handled differently with specific verbs.

COBOL index variables are manipulated using PERFORM (for loops), SEARCH (for table searches), and SET statements. MOVE cannot be used directly on index variables as they are special data types.

In COBOL, the INITIALIZE statement is restricted from processing variable-length tables defined with the OCCURS DEPENDING ON clause because their size changes dynamically at runtime. The compiler cannot determine memory allocation or element count in advance, making direct initialization invalid. Therefore, the statement is true, and the false option is incorrect.

The STOP RUN statement in COBOL ends program execution and returns control to the operating system. As part of this termination process, the runtime environment automatically closes all files that are currently open in any program within the run unit. This makes the statement true, whereas the false option incorrectly suggests files would remain open.

When STOP RUN is not coded in a COBOL program, it abends with U4038, which indicates an abnormal termination due to missing explicit program exit. This is a COBOL runtime error.

A new Generation Data Group (GDG) version is coded as +1 in the JCL. This tells the system to create the next generation in the sequence. 0 refers to the current generation, and -1 would refer to the previous one.

In access method services (IDCAMS) control statements, modal commands evaluate execution return codes to determine flow (such as IF-THEN-ELSE). GOTO is a control command used to branch to a label, but it is not classified as a modal command itself.

VSAM clusters with ONLY fixed-length records are RRDS (Relative Record Dataset) and LDS (Linear Dataset). RRDS organizes records by relative record numbers and requires fixed length. The question asks which cluster supports only fixed length, and RRDS is the standard answer taught in mainframe curricula.

For output files creating a NEW PDS member, you must use DISP=NEW to allocate a new dataset. DISP=OLD and DISP=SHR are for existing datasets. DISP=MOD is for extending existing datasets, not creating new ones. DISP=NEW with appropriate DCB parameters creates the new PDS member.

S322 is a CPU time limit abend in JCL. When a job step exceeds its allocated CPU time (specified by TIME parameter), the system abends with S322. It is NOT a space abend (that would be SB37) or a region abend (that would be X'ABEND' codes like 80A or 913).