Mainframe Scenario Video1 / Interview based questions- 2024 Updated list

Please share the questions you encountered during your interviews with us.
I'm gathering interview questions to refresh our interview question videos. Once I receive the questions, we'll produce videos with answers to update our content.
forms.gle/6soi...

[@mayureedeshmukh5115]

Following code can be used to reverse the string after removing trailing spaces.
MOVE FUNCTION LENGTH(WS-ORG-STRG) TO WS-COUNT.
DISPLAY WS-COUNT.
PERFORM VARYING WS-SUB FROM WS-COUNT BY -1 UNTIL WS-SUB = 0
IF WS-ORG-STRG(WS-SUB:) = ' '
CONTINUE
ELSE
MOVE FUNCTION REVERSE (WS-ORG-STRG(1:WS-SUB)) TO WS-REVRS
DISPLAY WS-REVRS
MOVE 1 TO WS-SUB
END-IF
END-PERFORM.