Search
Help look at the issue of this procedure, in the end?: Operating Systems
Obicn
Help look at the issue of this procedure, in the end?
C KEY03 SETGTZEA010R #
C EXFMTDHA01532
C *
C LOOP01 TAG
C READPZEA010R # 50
C 50 GOTO STEP99
C *
C A1OQTY SUB A1TQTR T1BLQT 51
C T1BLQT IFGT 0
C OF EXCPTOL01
C EXCPTOL02
C GOTO LOOP01
C ELSE
C GOTO LOOP01
C END
*
C STEP99 TAG
C 50 EXCPTOL99
C 50 SETON LR
C LR RETRN
This outcome should be the normal procedure is READPZEA010R, if the document first, 50-meter, SETON LR, procedure.
But why now circulating several procedures to help see? I looked like no problem, I do not know where the problem, the first is larger.
C KEY03 SETGTZEA010R #
C EXFMTDHA01532
C *
C LOOP01 TAG
C READPZEA010R # 50
C 50 GOTO STEP99
C *
C A1OQTY SUB A1TQTR T1BLQT 51
C T1BLQT IFGT 0
C OF EXCPTOL01
C EXCPTOL02
C GOTO LOOP01
C ELSE
C GOTO LOOP01
C END
*
C STEP99 TAG
C 50 EXCPTOL99
C 50 SETON LR
C LR RETRN
This outcome should be the normal procedure is READPZEA010R, if the document first, 50-meter, SETON LR, procedure.
But why now circulating several procedures to help see? I looked like no problem, I do not know where the problem, the first is larger.
Wildfish back in :2004-05-21 17:22:31 | You use the code in the form of stickers out, I see this code dizziness | Yoyoage back in :2004-05-22 10:53:46 | Why not look at the DEBUG? | Kevingao back in :2004-05-22 22:20:31 | DEBUG I tried, but could not find any what Xie | Hung like back in :2004-05-24 09:57:47 | This code means of a problem. | Question 1 KEY03 SETGT first to be nailed in> Question 2 READP Reading is a> I personally drafted is this: KEY03 CHAIN 50 Readp (Reading a pre-recorded, as a screen domain of the input parameters) EXFMT LOVAL SETLL (reset the cursor to the beginning of the database) CHAIN 50 * OFF * IN50 DOWEQ Dealing with the records found READE 50 ENDDO Set lr This probably OK Back in the days :2004-05-31 18:59:40 | Such code I read | Hung like back in :2004-06-01 12:20:36 | Even writing the pseudo-code, used to illustrate the process, for people, not for compiler | Aeiou back in :2004-06-01 13:05:27 | You also said that the first document is to read> Not read the first document has been circulating before, it is normal to ah. | James68 back in :2004-06-01 16:56:07 | Should be institutionalized approach to writing. | The most basic use of GOTO statements If this investigation more than just good James68 back in :2004-06-01 17:12:32 | You see, the most obvious | IF. . . GOTO LOOP01 ELSE GOTO LOOP01 ENDIF
www.obicn.com
|