LU 6.2 API Application Programmer's Reference Guide (30294-90008)

170 AppendixB
Sample Programs
COBOL II Program
039300*----------------------------------------------------*
039400 501000-FULL-SCREEN SECTION.
039500*----------------------------------------------------*
039600* This section prompts the user for data and
039700* receives the data from the terminal.
039800*
039900 MOVE SPACE TO TRANS-DATA.
040000 MOVE SPACES TO MASTER-DATA.
040100*
040200 DISPLAY CONSOLE-HEADING.
040300*
040400 DISPLAY "SOCSEC # :".
040500 PERFORM 601000-ACCEPT-SOCSEC
040600 UNTIL SOCSEC-TRANS IS NUMERIC.
040700*
040800 DISPLAY "LASTNAME :".
040900 ACCEPT LAST-NAME-TRANS FREE.
041000*
041100 DISPLAY "FIRSTNAME :".
041200 ACCEPT FIRST-NAME-TRANS FREE.
041300*
041400 DISPLAY "MI :".
041500 ACCEPT MI-NAME-TRANS FREE.
041600*
041700 501099-EXIT.
041800 EXIT.
041900*
042000*----------------------------------------------------*
042100 601000-ACCEPT-SOCSEC SECTION.
042200*----------------------------------------------------*
042300* This section prompts the user for a social security
042400* number and accepts it from the terminal.
042500*
042600 ACCEPT SOCSEC-TRANS FREE.
042700*
042800 IF SOCSEC-TRANS IS EQUAL TO SPACES
042900 DISPLAY "SOCSEC # MUST BE NUMERIC"
043000 DISPLAY "SOCSEC # :"
043100 GO TO 601099-EXIT.
043200*
043300 IF SOCSEC-TRANS IS NOT NUMERIC
043400 DISPLAY "SOCSEC # MUST BE NUMERIC"
043500 DISPLAY "SOCSEC # :".
043600*
043700 601099-EXIT.
043800 EXIT.