cobol - goback and GO TO paragraph -

-

is there way can let me cancel effect of "go to" in cobol example:

    perform procedure1 thru e--procedure1     display "perform     procedure2 thru e--procedure2"     perform     procedure2 thru e--procedure2     goback.     procedure1 section.        display "begin============proc procedure1"        perform lecture thru e--lecture        perform endd thru e--endd        display "  endd============proc procedure1"        continue.        exit.    e--procedure1.        exit.       lecture.        display "i label lecture"        go endd        continue.     e--lecture.        exit.      endd.        display "i label endd"        continue.     e--endd.        exit.      procedure2 section.        display "begin============proc procedure2"        display "i label procedure2"        display "  endd============proc procedure2"        continue.     e--procedure2.        exit.

when code executed, won't see display "perform procedure2 thru e--procedure2", beacause when made go paragraph endd, control permantely transfered paragraph , think there no way can use goback end of proc1 ? am-i wrong ?

@bill

this program trying translate:

goto5pow : proc options(main); dcl file001 file input record env(recsize(15)); dcl ctr1  pic'99' init('0'); dcl carte char(15); call procedure1; put skip list("perform     procedure2 thru e--procedure2"); call procedure2; procedure1: proc;       put skip list("begin============proc procedure1");       on endfile(file001) goto endd;       lecture:       put skip list("i label lecture");       read file(file001) into(carte);       ctr1 = ctr1 + 1;       put skip list("record "||ctr1||"=/" || carte ||"/");       if carte="aaaaaaaaaaaaaaa" goto endd;       endd:          put skip list("i label endd");       put skip list("  endd============proc procedure1"); end procedure1; procedure2 : proc;     put skip list("begin============proc procedure2");     put skip list("i label procedure2");      put skip list("  endd============proc procedure2"); end procedure2; end goto5pow ;

the output is:

begin============proc procedure1 label lecture record 01=/aaaaaaaaaaaaaaa/ label endd   endd============proc procedure1 perform     procedure2 thru e--procedure2 begin============proc procedure2 label procedure2   endd============proc procedure2

but cobol, generated output:

begin============proc procedure1 label lecture record 01=/aaaaaaaaaaaaaaa/ label endd begin============proc procedure2 label procedure2   endd============proc procedure2

as bill said, not use thru. use either procedures or sections; not both. on endfile(file001) sets exception handler end-of file

this program should be:

            03                               pic x value 'n'.                88 file001-eof         value 'y'.                88 file001-has-data    value 'n'.         perform procedure1         display "perform     procedure2 thru e--procedure2"        perform procedure2         goback.         procedure1 section.           display "begin============proc procedure1"           display "i label lecture"           read file001             @ end set file001-eof               true           end-read           if file001-has-data               compute ctr1 = ctr1 + 1;           end-if            display "i label endd"           display "  endd============proc procedure1"            exit.        e--procedure1.           exit.          procedure2 section.           display "begin============proc procedure2"           display "i label procedure2"           display "  endd============proc procedure2"           continue.        e--procedure2.           exit.

for people more familiar java / c# 

on endfile(file001) goto endd;

setups exception or error handler end-of-file condition. in java like:

try {    ....  } catch (endoffile e) {    goto endd; }

Comments

Post a Comment

Popular posts from this blog

java - nested exception is org.hibernate.exception.SQLGrammarException: could not extract ResultSet Hibernate+SpringMVC -

-
i trying fetch records database , having above error this classs appropriate getters , setters public class user { private int id; private string username; private string password; private string email; i have create database , inserted data below configuration <bean id="datasource" class="org.apache.commons.dbcp2.basicdatasource" destroy-method="close"> <property name="driverclassname" value="com.mysql.jdbc.driver"/> <property name="url" value="jdbc:mysql://localhost:3306/usersdb"/> <property name="username" value="root"/> <property name="password" value=""/> </bean> this complete stacktrace severe: servlet.service() servlet [appservlet] in context path [/spring] threw exception [request processing failed; nested exception org.hibernate.exception.sqlgrammarexception: not ...
Read more

sql - Postgresql tables exists, but getting "relation does not exist" when querying -

-
Image
i have postgresql db number of tables. if query: select column_name information_schema.columns table_name="my_table"; i list of columns returned properly. however, when query: select * "my_table"; i error: (programmingerror) relation "my_table" not exist 'select *\n "my_table"\n' {} any thoughts on why can columns, can't query table? goal able query table. you have include schema if isnt public one select * <schema>."my_table" or can change default schema show search_path; set search_path my_schema; check table schema here select * information_schema.columns for example if table on default schema public both works ok select * parroquias_region select * public.parroquias_region but sectors need specify schema select * map_update.sectores_point
Read more

asp.net mvc - breakpoint on javascript in CSHTML? -

-
i have .cshtml file has javascript tag. within script tag have few lines of javascript. first line of javascript refers property in @viewbag. other javascript lines plain script without mvc related references. observation: can place breakpoints (visual studio 2015) on each of these javascript lines. however, breakpoints has white dot in center of breakpoint symbol (red circle) except line @viewbag reference (this particular line not have white dot in center). it seems breakpoint without white dot hit during run-time. question: can explain going on here? white dot mean? why plain red breakpoint line line hitting breakpoint? the visual studio debugger expecting debug actual server-side code within .cshtml file opposed client-side javascript within it. iirc, visual studio allow debug javascript code expected in internet explorer (and possibly edge), other browsers want use either third-party tool or developer tools (f12) within browser. an easy approach take advant...
Read more