What will happen if you code GO BACK instead of STOP RUN in
a stand-alone COBOL program i.e. a program which is not
calling any other program ?
Answers were Sorted based on User's Feedback
Answer / anoop
Nothing will happen. Program will run fine since Go back
gives the control back to the operating system
Is This Answer Correct ? | 18 Yes | 2 No |
Answer / vampire
If GOBACK is coded instead of STOPRUN in a cobol program
which is not called by any other program nothing wrong will
happen. The program will give desired results.
Generally 3 things are coded to halt the execution of a
program they are
STOP RUN
GOBACK
EXIT PROGRAM
STOP RUN is frequently used and mainly coded in main
programs(calling program). The control will be returned to OS.
GOBACK is coded in the mainly in the subroutines or called
programs. The control will be returned to the calling
program. If STOP RUN is coded in the calling program the
program will go to an infinite execution. GOBACK can be
coded in the programs which is not called by any programs
instead of STOP RUN.
EXIT PROGRAM is seldom used.
Is This Answer Correct ? | 9 Yes | 4 No |
Answer / sivakumar sekharannair
Yes nothing will happen since go back will take the control
back from where it is called and finally the control will
go to operating system
Is This Answer Correct ? | 6 Yes | 2 No |
how to move the records from file to array table. give with code example
why 02 level number can't be use as a separate level number like 01 or 77 ?
How do you come out of an EVALUATE statement?
What is the utilization of copybook in cobol? Could we utilize a similar copybook?
What does the INITIALIZE verb do?
here is my compile and link edit steps in a jcl //COMPILE1 JOB (3CUS,S),'CCDM TEST' //STEPNAME EXEC PGM=IGYCRCTL,PARM='DYNAM,RENT,LIB,OBJECT, // OFFSET,APOST,OPTIMIZE',REGION=4096K //STEPLIB DD DSNAME=PM7351.TEST2.COB,DISP=SHR //SYSIN DD DSNAME=PM7351.TEST2.COB(PGM1),DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT2 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT3 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT4 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT5 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT6 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT7 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSPRINT DD SYSOUT=* //SYSLIN DD DSNAME=&&LOAD,DISP=(MOD,PASS),UNIT=SYSDA, // SPACE=(10,(10,10)),DCB=BLKSIZE=400 //LKED EXEC PGM=IEWL,REGION=1024K //SYSPRINT DD SYSOUT=A //SYSLIB DD DSN=PM7351.TEST2.LOADLIB,DISP=SHR // DD DSN=PM7351.TEST2.COB(PGM1),DISP=SHR //SYSLMOD DD DSN=PM7351.TEST2.LOADLIB, // DISP=SHR //SYSUT1 DD UNIT=SYSDA,DCB=BLKSIZE=1024,SPACE=(CYL,(1,1)) //SYSTERM DD SYSOUT=* //SYSLIN DD DSN=&&LOAD,DISP=(OLD,DELETE) //SYSIN DD DUMMY i am getting IEW2013I 0F08 NO MEMBER NAME WAS SPECIFIED. MODULE WAS SAVED USING TEMPNAM1. could any one tell me the resolution for this..?
what is the difference between Plan & package
Consider the following COBOL entries: 05 X PIC 99 VALUE 10. SUBTRACT 20 FROM X. The resultant value of X wil be
What is report-item?
How To Separate The Numerics From An Alphanumric Data Item Which Contains Both Alphabates And Numerics ?
If a file has 1000 records.. if i have to replace the first and last characters of the file with another character. how it can be done....
What are the different data types in cobol?