midrange.com code scratchpad |
Name:
NEXT MODIFIED
|
Scriptlanguage:
Plain Text
|
Tabwidth:
4
|
Date:
05/05/2009 03:19:39 pm
|
IP:
Logged
|
|
Description:
Example of using the READ SUBFILE SREEEN-FILE NEXT MODIFIED using record formats defined in working storage.
Example of REWRITE a subfile record with error information.
|
Code:
- WORKING-STORAGE SECTION.
- COPY PGMSTATUS OF QCPYSRC.
- COPY STDWRKSTG OF QCPYSRC.
-
- 01 SF0001CTL.
- COPY DD-SF0001CTL-I-O OF MS0001DF.
- 01 SF0001.
- COPY DD-SF0001-I-O OF MS0001DF.
- 01 SFNORECORD.
- COPY DD-SFNORECORD-I-O OF MS0001DF.
- 01 CMDKEYLINE.
- COPY DD-CMDKEYLINE-I-O OF MS0001DF.
- 01 MSGSFLC.
- COPY DD-MSGSFLC-I-O OF MS0001DF.
-
- * ---------------------------------------------------------------------
- EDIT-SUBFILE.
- READ SUBFILE SCREEN-FILE NEXT MODIFIED
- INTO SF0001
- FORMAT IS "SF0001"
- INDICATORS ARE WS-INDICATORS
- AT END
- MOVE "NO" TO ARE-THERE-MORE-RECORDS
- NOT AT END
- EVALUATE SFOPT OF SF0001-I
- WHEN 0
- MOVE "YES" TO IS-SFOPT-VALID
- MOVE GREEN-UL TO AFOPT OF SF0001-O
- MOVE B"0" TO IN97
- REWRITE SUBFILE SCREEN-RECORD FROM SF0001
- FORMAT IS "SF0001"
- INDICATORS ARE WS-INDICATORS
- WHEN 1
- MOVE "YES" TO IS-SFOPT-VALID
- WHEN 5
- MOVE "YES" TO IS-SFOPT-VALID
- WHEN OTHER
- MOVE "NO" TO IS-SFOPT-VALID
- MOVE 1 TO ERROR-NUMBER(2)
-
- IF SFL-RECORD-NUMBER-ERROR EQUAL ZEROS
- MOVE SFL-RECORD-NUMBER TO SFL-RECORD-NUMBER-ERROR
- END-IF
- MOVE RED-UL-RI TO AFOPT OF SF0001-O
- MOVE B"1" TO IN97
- REWRITE SUBFILE SCREEN-RECORD FROM SF0001
- FORMAT IS "SF0001"
- INDICATORS ARE WS-INDICATORS
- MOVE B"0" TO IN97
- END-EVALUATE.
|
|
|