but if you have whitespaces after your value this might do nothing.
you would stil have to inspect the string and replace the space by loval
Slashdot videos: Now with more Slashdot!
i ditched the columns for my example
but i don't mind the column-specific syntax.
in fact, i really like it
but IBM introduced free format RPG some time ago
you can start a free block wich
but they did a sloppy job on the implementation
the definitions in the program header and some operations still have to be done in fixed format
ok, this doesn't bring us any further, but do you really think, that moving something in a right justified variable is the solution?
this doesn't only need another variable, but if your source value has trailing spaces you will need a ridiculously long INSPECT line and an index variable for a substring.
since cobol is dumb, you will further need an INITIALIZE for both variables.
01 var1 PIC X(50)
01 var2 PIC X(50) justified right
01 sub PIC 9(2)
initialize var1 var2 sub
move "test " to var1
initialize var1 tallying sub for trailing space
if sub = 0
move var1 to var2
move var1(1:sub) to var2
d var1 s 50a
d var2 s 50a
c eval var1='test '
c evalr var2=%trim(var1)
seems way more convinient
even tough RPG is ill-reputed as an old static programming language this looks somehow like any other high level language and anyone should understand what's going on here without trying to figure out what that strange INSPECT does
They should instead spray on biological reactants to absorb odors and/or biodegradation accelerators to speed up the process.
biodegradation of what? plastic bags?
simyo is 24c/MB so not cheap.
you can pay 9eur for 1gb in advance but you will have to use it until the end of the month