ibm midrange - Simple RPG am rusty -


i want small rpg program rusty. it's similar sql recently.

i want read logical file, , select records todays date. field defined numeric 8 0. yyyymmdd way this? want read records = todays date. (job date ok ).

f filename etc.   d   data structure date     *** not sure how code this,    ds datein    d  year4in        d cent2        d yr2    d  month2in    d day2in ****  d ds dateout d  month2out d day2out d  yr2out  c   read loop        read filename until eof.                 move ordhdt datemanip                if ordhdt not equal udate                     leave                         else                              write record work file                        iter               end read loop. 

fmylf   if    e              k disk  d             ds d                   1   20  0 d  date                 1    8  0 d  time                 9   14  0 d  zzzzzz              15   20  0  c/free     = %dec(%timestamp());     setll date mylf;     reade date mylf;     dow not %eof(mylf);        // processing here.        reade date mylf;     enddo;     *inlr = *on; c/end-free

and here's version may more comfortable with:

fmylf     if   e              k disk  dyyyymmdd        s               8  0 d                ds d time                      1    6  0 d date                      7   12  0 d mm                        7    8  0 d dd                        9   10  0 d yyyy                     11   14  0 d timedate                  1   14  0  c                   time      timedate c                   eval      yyyymmdd = (yyyy*10000) + (mm*100) + dd c      yyyymmdd     setll     mylf c      yyyymmdd     reade     mylf                                 99 c                   dow       *in99 = *off c* processing here c      yyyymmdd     reade     mylf                                 99 c                   enddo c                   eval      *inlr = *on

Comments

Post a Comment

Popular posts from this blog

blackberry 10 - how to add multiple markers on the google map just by url? -

i have android application, want convert blackberry 10 , google map needed in app,but blackberry 10 not support googlemap , blackberry developer web site supply way replace it.the sample below: @override public void oncreate(bundle savedinstancestate) { super.oncreate(savedinstancestate); setcontentview(r.layout.main); webview webview = (webview) findviewbyid(r.id.mywebview); webview.getsettings().setjavascriptenabled(true); webview.loadurl("http://maps.google.com/?ll=36.97, -122&lci=bike&z=13&t=p"); } i cannot understand it,i not know how add multiple markers on googlemap via url? can me? this worked me map shown in webview.
Read more

php - guestbook returning database data to flash -

i've been struggling problem long , unable make work, hope can me it. first, know php files correct , mysql database works fine. in flash, able submit comment database comments not display. did many tests such making returned_database flash separately , worked fine - can see old comments. long combine submitting 1 , returning 1 together, flash doesn't show comments more. put lower version flash effects on frame thinking doesn't collaborate returning flash, submitting flash works fine. since pretty complex problem hard me copy actionscript code because on different frames in flash. if has ideas fixing maybe can send file you?
Read more

delphi - Dynamic file type icon -

i want register file type in windows , make program delphi draw icon of file according contents (something custom icon format). how can this? thanks nortd , user539484 comments, searched internet "shell icon handler delphi" , found sample here , , shell+ components has component this.
Read more