opencobol - Call function in COBOL more than once -

-

i have main calling 2 functions. second function called (decrypt) calls first function (encrypt) inside of it. here encrypt being called twice. once in main, , once inside of decrypt.

the issue refuses work way. once encrypt gets used in main, can't use encrypt again anywhere~ in program. variables still in use , can't pass new ones.

for example, if remove encrypt main function , call decrypt - works fine. can't figure out why.

identification division. program-id. caeser-1-cipher. data division. procedure division call 'encrypt' using content inpute ciphere. call 'decrypt' using content inputd cipherd. stop run.  identification division. program-id. encrypt. data division. procedure division blah blah blah blah compute end program encrypt.  identification division. program-id. decrypt. data division. procedure division blah blah call 'encrypt' using content blah blah exit program. end program decrypt.

i'm not sure follow question completely, have expeced more problems decrypt. why...

program ser-1-cipher contains 2 nested programs: encrypt , decrypt. until declare encrypt , decrypt common programs cannot "see" each other because programs @ higher levels of nesting (eg. ser-1-cipher) can "see" programs nested within them. explained in open cobol programmers guide on nested programs.

try declaring nested programs as:

 program-id. encrypt common.  program-id. decrypt common.

this way program decrypt able call encrypt.

next, encourage use goback in place of stop run , exit program when returning control operating system or calling programs. opencobol programmers guide makes recommendation.

finally, each subprogram should contain last statement goback. not sure behaviour of encrypt without having explicit return statement of kind. actual program may have this, code example in question doesn't.

open cobol not seem have restrictions on having recursion among nested programs, versions of cobol not allow (eg. ibm enterprise cobol).


Popular posts from this blog

How to calculate SNR of signals in MATLAB? -

-
i've encountered simple, yet fundamental problem on calculating snr: there several signals : s1 = original , pure clean signal without noise. n1 = white gaussian noise going added s1. s2 = s1 + n1 (the noisy signal before performing noise-reduction algorithm) s3 = noise-reduced signal (after performing noise reduction algorithm) n2 = s3 - s1 (the amount of noise after performing noise-reduction algorithm) now want compare snr before , after performing noise-reduction algorithm. which signals should consider snr_before!? s1/n1 or s2/n1 ? which signals should consider snr_after!? s3/n1 or s3/n2 ? which commands or functions should use in matlab in order compute snr_before , snr_after? thanks billion putting time on helping me. what know calculating snr before : snrbeforenoise = mean( signal .^ 2 ) / mean( noise .^ 2 ); and snr after : residual_noise = signal - noise_reduced_signal; snr_after = mean( signal .^ 2 ) / mean( residual_noise .^ 2
Read more

c# - Attempting to upload to FTP: System.Net.WebException: System error -

-
i have api takes in xml , uploads files based on information in xml. uploads on schedule (also xml), , have tested surrounding , know works. i getting error 40% of time on first file attempt upload in each time cycle (time cycle = 45 minutes files, 30 minutes others). here code upload: try { loggerftp.log("uploading file: " + filename, false); // create request. ftpwebrequest request = (ftpwebrequest)webrequest.create(appsettingsftp.ftpurl + @"/" + filename); request.method = webrequestmethods.ftp.uploadfile; request.timeout = 6000000; //set 100 minutes //request.timeout = -1; //set infinite // add login credentials. request.credentials = new networkcredential(appsettingsftp.ftplogin, appsettingsftp.ftppassword); // grab file contents. streamreader sourcestream = new streamreader(appsettingsftp.uploadfiledirectory + filename); byte[] filecontents = encoding.utf8.getbytes(sourcestream.readtoend()); sourcest
Read more

ios - UISlider customization: how to properly add shadow to custom knob image -

-
Image
i need place custom knob image shadow uislider. far have image of 38x38, of there region defines shadow of knob. now while using image, when slide knob extreme ends actual knob not able cover end points, hence end points visible under transparent region of knob image this code using customize uislider uiimage *slidebtimg = [uiimage imagenamed:sliderknobimg]; [self.ratingslider setthumbimage:slidebtimg forstate:uicontrolstatenormal]; [self.ratingslider setthumbimage:slidebtimg forstate:uicontrolstatehighlighted]; how can implement custom knob shadow beneath it, covering end points?? look inside uislider.h , there methods let customize slider knob , track needed. (ios 2.0 , above) // lets subclass lay out track , thumb needed - (cgrect)minimumvalueimagerectforbounds:(cgrect)bounds; - (cgrect)maximumvalueimagerectforbounds:(cgrect)bounds; - (cgrect)trackrectforbounds:(cgrect)bounds; - (cgrect)thumbrectforbounds:(cgrect)bounds trackrect:(cgrect)rect value:
Read more