Untitled
unknown
plain_text
6 months ago
7.3 kB
2
Indexable
Sequence 597
Statement EVALUATE STATUS-CODE
Program_Name PAJSFN20
Paragraph_Name 3000-CCT75-HIGH-DOLLAR-EDITS.
Keywords EVALUATE
Conditional_Seq None
Parameters {'Attributes': ['STATUS-CODE'], 'Literals': ['FALSE']}
Source None
Target None
Name: 0, dtype: object
Sequence 598
Statement WHEN 'OKAY'
Program_Name PAJSFN20
Paragraph_Name 3000-CCT75-HIGH-DOLLAR-EDITS.
Keywords WHEN
Conditional_Seq 597.0
Parameters [{'Attribute': '', 'Operator': '', 'Value': ["'OKAY'"], 'THRU': 'FALSE', 'ALSO': 'FALSE'}]
Source None
Target None
Name: 1, dtype: object
Sequence 599
Statement IF R75-FOUND-CODE = 'Y'
Program_Name PAJSFN20
Paragraph_Name 3000-CCT75-HIGH-DOLLAR-EDITS.
Keywords IF
Conditional_Seq 598.0
Parameters [{'logical_operator': '', 'attribute': 'R75-FOUND-CODE', 'operator': '=', 'value': 'Y'}]
Source None
Target None
Name: 2, dtype: object
Sequence 600
Statement IF NOT WS-BEN-CTG-ENT-CNT GREATER THAN 0
Program_Name PAJSFN20
Paragraph_Name 3000-CCT75-HIGH-DOLLAR-EDITS.
Keywords IF
Conditional_Seq 599.0
Parameters [{'logical_operator': '', 'attribute': 'WS-BEN-CTG-ENT-CNT', 'operator': 'GREATER THAN', 'value': '0'}]
Source None
Target None
Name: 3, dtype: object
Sequence 603
Statement PERFORM 3200-EVAL-CCT75 THRU 3200-EXIT
Program_Name PAJSFN20
Paragraph_Name 3000-CCT75-HIGH-DOLLAR-EDITS.
Keywords PERFORM
Conditional_Seq 602.0
Parameters {'start_paragraph': None, 'end_paragraph': '3200-EXIT', 'test_before': False, 'test_after': False, 'varying': None, 'times': None, 'until_condition': None, 'display_action': None}
Source None
Target None
Name: 4, dtype: object
Sequence 604
Statement END-IF
Program_Name PAJSFN20
Paragraph_Name 3000-CCT75-HIGH-DOLLAR-EDITS.
Keywords END
Conditional_Seq 600.0
Parameters Extractor Under DEV
Source None
Target None
Name: 5, dtype: object
Sequence 605
Statement END-IF
Program_Name PAJSFN20
Paragraph_Name 3000-CCT75-HIGH-DOLLAR-EDITS.
Keywords END
Conditional_Seq 599.0
Parameters Extractor Under DEV
Source None
Target None
Name: 6, dtype: object
Sequence 613
Statement END-EVALUATE .
Program_Name PAJSFN20
Paragraph_Name 3000-CCT75-HIGH-DOLLAR-EDITS.
Keywords END
Conditional_Seq 597.0
Parameters Extractor Under DEV
Source None
Target None
Name: 7, dtype: object
PRINTING MASTERPIECE:
000597 EVALUATE STATUS-CODE
000598 WHEN 'OKAY'
000599 IF R75-FOUND-CODE = 'Y'
000600 IF NOT WS-BEN-CTG-ENT-CNT GREATER THAN 0
000603 PERFORM 3200-EVAL-CCT75 THRU 3200-EXIT
000604 END-IF
000605 END-IF
000613 END-EVALUATE .Editor is loading...
Leave a Comment