A modern environment for your IBM i systems. With or without AI.

01**free
02ctl-opt dftactgrp(*no) actgrp(*caller);
03dcl-s customerId char(10) inz('C400012');
04dcl-s orderStatus varchar(24);
05dcl-s orderTotal packed(11:2);
06dcl-ds OrderRow qualified;
07  id int(10);
08  status varchar(24);
09  total packed(11:2);
10end-ds;
11exec sql set option commit = *none;
12exec sql
13  select status, total
14    into :orderStatus, :orderTotal
15    from orders
16   where customer = :customerId
17   fetch first 1 row only;
18if sqlcode = 0;
19  dsply ('Order ' + orderStatus);
20else;
21  dsply ('Customer not found');
22endif;
23exec sql
24  declare c1 cursor for
25    select id, status, total
26      from orders
27     where customer = :customerId
28     order by created_at desc;
29exec sql open c1;
30dow sqlcode = 0;
31  exec sql fetch next from c1 into :OrderRow;
32  if sqlcode <> 0;
33    leave;
34  endif;
35  monitor;
36    callp publishOrder(OrderRow);
37  on-error;
38    dsply ('Publish failed');
39  endmon;
40enddo;
41exec sql close c1;
42*inlr = *on;
43return;

01     A                                      DSPSIZ(24 80 *DS3)
02     A          R £SFLRCD                   SFL
03     A            Z1_ID         10A  H
04     A            Z1_SEL         1A  B 10  4
05     A            Z1_NUM_A      11A  O 11  6COLOR(TRQ)
06     A            Z1_NOM_A      18A  O 10 19COLOR(GRN)
07     A            Z1_PRENOM     14A  O 10 37COLOR(TRQ)
08     A            Z1_DATE_SO    10A  O 11 29COLOR(TRQ)
09     A          R £SFLCTL                   SFLCTL(£SFLRCD)
10     A                                      SFLPAG(003)
11     A                                      SFLSIZ(099)
12     A                                  1 25'Carbon/400 DEMO'
13     A                                  4  2'Num. assurance. .'
14     A                                  5  2'Nom . . . . . . .'
15     A                                  7  2'Op'
16     A                                  7  5'Num. Assurance'
17     A                                  7 21'Nom Abonne'
18     A                                  7 37'Prenom'
19     A          R £FOOTER
20     A                                 23  4'F3=Exit  F5=Actualiser'