cobol - Replace values with nothing / null -


i have text file delimiters (like #rt#, #lt#, #bc# etc) need removed.

for example:-

original: taxes owed:#rt#$3000

fixed version: taxes owed:$3000

replacing spaces doesnt work obviously, puts in spaces - computer read file - needs exact - nothing/null do.

any ideas?

the above representative sample of data... random paragraphs of data #rt# , #lt# in it. currently, replacing spaces used. need removed entirely in example above. cant post code till tomorrow im on road.

the inspect yourtext replacing spaces leaves spaces. inspect yourtext replacing "" not allowed (both need same length or replacing identifier figurative constant: space[s], zero[s|es], or quote[s]) - compiler output understandable message if try this.

this leaves 3 options:

  • don't use cobol (would #1 option if don't want else text file) system call, example sed -e 's/#rt#//g' yourfile > yourtarget, depending on cobol runtime use (it idea add information in question!) may start process via cobol call "system" using external-command.

  • read data, use extension specific runtime translate (for example gnucobol: move function substitute (yourtext, '#rt#', '', '#lt#'. '') translated-text) - may function, system library call - , write data back.

  • the old cobol way - see below.

as question not reading data or writing replacing part:

option a): unstring statement

move 0 t1, t2, t3, t4 unstring yourtext    delimited '#rt#' or                  '#lt#' or                 ...              target-1 count in t1                   target-2 count in t2                   target-3 count in t3                   target-4 count in t4                   ... end-unstring move spaces translated-text string target-1 (1:t1)        target-2 (1:t2)        target-2 (1:t2)        target-2 (1:t2)        ...        delimited size translated-text end-string

option b) simple perform varying 2 pointers, combined simple if statement.

*> may more performance if `redefine` source-text `pic x occurs length-of-text times` - find 1 more better read , shouldn't consume more time...  move 0 target-pointer perform varying source-pointer         1 1         until   source-pointer > length-of-text    if source-text (source-pointer:1) = '#'       *> optimizer calculate constant on       *> right side, may write directly       if source-pointer + 4 > length-of-text          add  1 target-pointer          move source-text (source-pointer:)            target-text (target-pointer:)          exit perform       end-if       if source-text (source-pointer:4) = '#rt#' or '#lt#' or ...          add 4 source-pointer          exit perform cycle       end-if    end-if    add  1 target-pointer    move source-text (source-pointer:1)      target-text (target-pointer:1) end-perform

Comments

Post a Comment

Popular posts from this blog

php - How to add and update images or image url in Volusion using Volusion API -

actually have store importing products store product data insert , update image or image url not insert , update. this xml code name datapro.txt. <products_joined> <productcode>3710_012t</productcode> <vendor_partno>eah5450silent/di/1gd3(lp)</vendor_partno> <productname>test product ta</productname> <hideproduct>n</hideproduct> <stockstatus>20</stockstatus> <lastmodified>1/5/2016 10:25:00 am</lastmodified> <lastmodby>2</lastmodby> <productweight>0.9</productweight> <productprice>100</productprice> <productmanufacturer>asus tek</productmanufacturer> <vendor_price>32.69</vendor_price> <numproductssharingstock>0</numproductssharingstock> <categoryids>107</categoryids> <producturl>http://tebkq.mvlce.servertrust.com/productdetails.asp?productcode=3710_012t</producturl...
Read more

Laravel mail error `Swift_TransportException in StreamBuffer.php line 269: Connection could not be established with host smtp.gmail.com [ #0]` -

i developing website contact-us page guest users can send me email using gmail . anytime try send mail using contact-us form, error swift_transportexception in streambuffer.php line 269: connection not established host smtp.gmail.com [ #0] this mail.php return [ 'driver' => env('mail_driver', 'smtp'), 'host' => env('mail_host', 'smtp.gmail.com'), 'port' => 587, 'from' => ['address' => '', 'name' => ''], 'encryption' => env('mail_encryption', 'tls'), 'username' => env('mail_username'), 'password' => env(mail_password), 'sendmail' => '/usr/sbin/sendmail -bs', 'pretend' => env('mail_pretend', false), ]; this .env mail_driver=smtp mail_host=smtp.gmail.com mail_port=587 mail_username=afecjaped@gmail.com mail_password=********...
Read more

c# SetCompatibleTextRenderingDefault must be called before the first -

i tried search exception couldn't find solution on case i'am using code below invoke .net application : assembly assem = assembly.load(data); methodinfo method = assem.entrypoint; var o = activator.createinstance(method.declaringtype); method.invoke(o, null); the application invoked has form , in entrypoint of application : [stathread] static void main() { application.enablevisualstyles(); application.setcompatibletextrenderingdefault(false); //exception application.run(new form1()); } setcompatibletextrenderingdefault must called before first iwin32window object created in application. edit : assembly = assembly.load(data); methodinfo method = a.gettype().getmethod("start"); var o = activator.createinstance(method.declaringtype); method.invoke(o, null); you should create new method skips initialization...
Read more