Search results for query: *

I think you are not getting desired result, becauseis that you were coding "if zpfkey ='pf05'" instead of "if zpfkey ='PF05'" ==> Please note the case of PF05. Thanks, Mainframestudent.

Please try the following logic. I apologize that I could not try it since I am not connected to the mainframe. Firstly, modify your exec as follows. ARG action macflag = 1 errflag = 0 Parse var action 3 logrefno /* i.e. extract & validate panel variable PREF */ If Datatype(logrefno) \ =...

Can we try this logic? File1 ===== Key field + first portion of the record File2 ===== Key field + Remaining portion of the record During write: ============= The record to be split into 2; First 32K to be written to first file (Including key); second portion prefixed with the same key value...

Through a quick scan, I think no moves are happening to VALID-REC, which is being written. Please check. Sorry, if I am wrong.

Here is another solution, which I think will work DECLARATION PART ---------------- var1, var2 --> of required size temp-var2 --> same size as that of var2 SPACE-CNT --> 9(number of bytes in var2) RELEVANT CODE ------------- INSPECT VAR2 TALLYING SPACE-CNT FOR LEADING SPACES IF SPACE-CNT >...

Here is another solution, which I think will work DECLARATION PART ---------------- var1, var2 --> of required size temp-var2 --> same size as that of var2 SPACE-CNT --> 9(number of bytes in var2) RELEVANT CODE ------------- INSPECT VAR2 TALLYING SPACE-CNT FOR LEADING SPACES IF SPACE-CNT >...