Figure 8: Display logic to show one screen

     P                 B                   export

     D CustView_AskCust...

     D                 PI

     D   Custno                            like(Cust_CustNo_t)

     D   Add                          1N

     D   Exit                         1N

      /free

         CustView_Init();



         Add = *OFF;

         Exit = *OFF;



         exfmt custs1;

         CustView_ErrMsg(*blanks);



         if (Screen.Exit);

            Exit = *ON;

            return;

         endif;



         if (Screen.Add);

            Add = *ON;

            return;

         endif;



         Custno = scCust;

      /end-free

     P                 E