Comments on: Single Page subfile http://itknowledgeexchange.techtarget.com/itanswers/single-page-subfile-2/ Fri, 24 May 2013 07:13:09 +0000 hourly 1 By: 9783444184 http://itknowledgeexchange.techtarget.com/itanswers/single-page-subfile-2/#comment-101839 9783444184 Thu, 19 Jan 2012 12:34:47 +0000 #comment-101839 hi friends,
i have find 1-solution with the use of temporary file
and the 2nd solution through array
i stuck in process subfile through array
what should i do…..
thanks for your ideas…… -:)

]]> By: philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/single-page-subfile-2/#comment-101836 philpl1jb Thu, 19 Jan 2012 11:27:45 +0000 #comment-101836 If you were to decide to process the requested options before you move to a new page your solution would be much simplier.

]]> By: tomliotta http://itknowledgeexchange.techtarget.com/itanswers/single-page-subfile-2/#comment-101822 tomliotta Thu, 19 Jan 2012 06:17:28 +0000 #comment-101822 can you have idea about how to work on an array

That is what the Information Center and the language manuals are for. See the Chapter 8. Using Arrays and Tables topic in the ILE RPG Reference manual.

Tom

]]> By: 9783444184 http://itknowledgeexchange.techtarget.com/itanswers/single-page-subfile-2/#comment-101820 9783444184 Thu, 19 Jan 2012 04:29:49 +0000 #comment-101820 hi TomLiotta,
thanks for your valuable idea
but please can you have idea about how to work on an array because i am new in as400 rpgle

]]> By: philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/single-page-subfile-2/#comment-101815 philpl1jb Wed, 18 Jan 2012 22:14:54 +0000 #comment-101815 Ok, you need a plan
You show a page,
User types option numbers on one or more rows.
User presses page down — what should happen?
User presses page up — what should happen?
User presses enter what should happen?
User presses exit function key (F3?) what should happen?

]]> By: tomliotta http://itknowledgeexchange.techtarget.com/itanswers/single-page-subfile-2/#comment-101813 tomliotta Wed, 18 Jan 2012 21:22:09 +0000 #comment-101813 …when i select one row with opt.2 and press page down after that again i select next page one row with opt.2 and press page up privius page option cleared…

That’s because you have to process the row with opt ’2′ before you can display the next page. You must either execute your change (revise) routine for that row or you need to store the information from that row so you can process it later.

If you choose to store it, you must do it it in some way that lets you store all rows that you find with opt 2 in them. That is, you’ll store in an array or a temporary file or some other container.

The point is that you have a ‘page-at-a-time’ subfile. That is, the subfile only has a single page. Every time you display it, everything from the previous page is gone. You need to process those rows before you write the next page.

Tom

]]> By: philpl1jb http://itknowledgeexchange.techtarget.com/itanswers/single-page-subfile-2/#comment-101796 philpl1jb Wed, 18 Jan 2012 12:47:22 +0000 #comment-101796 Try this
http://www.texas400.com/SCsfload1pgrpgile.html
or
http://www.code400.com/viewsamples.php?lang_id=1
or
https://www-304.ibm.com/support/docview.wss?uid=nas16048520b60151417862568cc006440bc

]]> By: 9783444184 http://itknowledgeexchange.techtarget.com/itanswers/single-page-subfile-2/#comment-101789 9783444184 Wed, 18 Jan 2012 10:51:55 +0000 #comment-101789 please post me single page subfile maintenance program code or sample idea
sflsiz=sflpage=4
opt is 1=Create 2=Revise 3=Copy 4=Delete
screen look like as
opt empno empname
— ——— ————–
— ——— ————–

]]> By: 9783444184 http://itknowledgeexchange.techtarget.com/itanswers/single-page-subfile-2/#comment-101787 9783444184 Wed, 18 Jan 2012 10:43:46 +0000 #comment-101787 hi Philpl1jb,
but when i select one row with opt.2 and press page down after that again i select next page one row with opt.2 and press page up privius page option cleared
when i mantion reset sflemp

]]> By: 9783444184 http://itknowledgeexchange.techtarget.com/itanswers/single-page-subfile-2/#comment-101786 9783444184 Wed, 18 Jan 2012 10:39:40 +0000 #comment-101786 5722WDS V5R3M0 030905 SEU SOURCE LISTING 18/11/07 11:14:05 S6539B3B PAGE 1 SOURCE FILE . . . . . . . AMITS/AMITSRC MEMBER . . . . . . . . . EMPSFL02 SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 10 A*%%TS SD 20071118 105356 ASHUKLA REL-V5R3M0 5722-WDS 18/11/07 20 A*%%EC 18/11/07 30 A DSPSIZ(24 80 *DS3) 18/11/07 40 A R SFLEMP SFL 18/11/07 50 A*%%TS SD 20071118 105356 ASHUKLA REL-V5R3M0 5722-WDS 18/11/07 60 A 10 SFLNXTCHG 18/11/07 70 A $EMPN 6A O 14 5 18/11/07 80 A $EMFN 10A B 14 14 18/11/07 90 A 22 DSPATR(RI) 18/11/07 100 A 22 DSPATR(PC) 18/11/07 110 A $EMMN 10A B 14 26 18/11/07 120 A 23 DSPATR(RI) 18/11/07 130 A 23 DSPATR(PC) 18/11/07 140 A $EMLN 10A B 14 38 18/11/07 150 A 24 DSPATR(RI) 18/11/07 160 A 24 DSPATR(PC) 18/11/07 170 A $EMSAL 6Y 0B 14 50EDTCDE(Z) 18/11/07 180 A 25 DSPATR(RI) 18/11/07 190 A 25 DSPATR(PC) 18/11/07 200 A $SOPT 2Y 0B 14 2EDTCDE(Z) 18/11/07 210 A 27 DSPATR(PC) 18/11/07 220 A 27 DSPATR(RI) 18/11/07 230 A $RRN 4 0O 14 59 18/11/07 240 A R EMPCF SFLCTL(SFLEMP) 05/11/07 250 A*%%TS SD 20071105 165549 VKRISHNA REL-V5R3M0 5722-WDS 05/11/07 260 A SFLSIZ(0004) 05/11/07 270 A SFLPAG(0004) 05/11/07 280 A CA03(03 'exit') 05/11/07 290 A CA05(05 'Reset') 05/11/07 300 A ROLLUP(20) 11/11/07 310 A ROLLDOWN(21) 11/11/07 320 A CA06(06 'Confirm') 05/11/07 330 A CA12(12 'CAN') 05/11/07 340 A OVERLAY 05/11/07 350 A* SFLCSRRRN(&$CR) 18/11/07 360 A 40 SFLDSP 05/11/07 370 A 41 SFLDSPCTL 05/11/07 380 A 42 SFLCLR 05/11/07 390 A 43 SFLEND(*MORE) 05/11/07 400 A 1 73DATE 05/11/07 410 A EDTCDE(Y) 05/11/07 420 A COLOR(BLU) 05/11/07 430 A 2 73TIME 05/11/07 440 A COLOR(BLU) 05/11/07 450 A 1 62USER 05/11/07 460 A COLOR(GRN) 05/11/07 470 A 2 62SYSNAME 05/11/07 480 A COLOR(GRN) 05/11/07 490 A DPRGN 10A O 1 2 05/11/07 500 A DWRKSTN 10A O 2 2 05/11/07 510 A $TOP 5A O 12 74COLOR(WHT) 05/11/07 520 A FLD001 40A O 1 19COLOR(WHT) 05/11/07 530 A MSGID(AMT 0001 SSAZ03) 05/11/07 5722WDS V5R3M0 030905 SEU SOURCE LISTING 18/11/07 11:14:05 S6539B3B PAGE 2 SOURCE FILE . . . . . . . AMITS/AMITSRC MEMBER . . . . . . . . . EMPSFL02 SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 540 A 2 28'Employee Maintenance' 05/11/07 550 A COLOR(BLU) 05/11/07 560 A 10 2'Opt Ecode Fname Mname - 05/11/07 570 A Lname Salary ' 05/11/07 580 A COLOR(WHT) 05/11/07 590 A $AOPT 2Y 0B 12 2EDTCDE(Z) 05/11/07 600 A 11 DSPATR(RI) 05/11/07 610 A 11 DSPATR(PC) 05/11/07 620 A $EMMNA 10A B 12 26 05/11/07 630 A 13 DSPATR(RI) 05/11/07 640 A 13 DSPATR(PC) 05/11/07 650 A $EMFNA 10A B 12 14 05/11/07 660 A 12 DSPATR(RI) 05/11/07 670 A 12 DSPATR(PC) 05/11/07 680 A $EMLNA 10A B 12 38 05/11/07 690 A 14 DSPATR(RI) 05/11/07 700 A 14 DSPATR(PC) 05/11/07 710 A $EMSALA 6Y 0B 12 50EDTCDE(Z) 05/11/07 720 A 15 DSPATR(RI) 05/11/07 730 A 15 DSPATR(PC) 05/11/07 740 A $EMCOD 6A O 11 13 17/11/07 750 A 4 2'Select action and press Enter. 1=- 05/11/07 760 A Create 2=Revise 3=Copy 4=Delete' 05/11/07 770 A COLOR(BLU) 05/11/07 780 A* $CR 5S 0H 18/11/07 790 A $REC 4S 0H SFLRCDNBR(CURSOR) 12/11/07 800 A R FOOTER 30/10/07 810 A*%%TS SD 20071030 105127 ASHUKLA REL-V5R3M0 5722-WDS 30/10/07 820 A OVERLAY 30/10/07 830 A 23 2'F3=Exit F5=Reset F6=Conf.' 30/10/07 840 A COLOR(BLU) 30/10/07 850 A $MSG 75 O 24 2COLOR(WHT) 30/10/07 * * * * E N D O F S O U R C E * * * * ************************************* 5722WDS V5R3M0 030905 SEU SOURCE LISTING 18/11/07 11:12:10 S6539B3B PAGE 1 SOURCE FILE . . . . . . . AMITS/AMITSRC MEMBER . . . . . . . . . EMPSFR02B SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 100 Hoption(*nodebugio) 25/11/07 200 FEIMEML01 Uf A e K disk 30/10/07 300 FEMPSFL02 cf e workstn sfile(SFLEMP:frn) 18/11/07 301 f infds(infds) 11/11/07 302 d infds ds 11/11/07 303 d currec 378 379b 0 11/11/07 305 D@EMPN S 5 0 DTAARA(MYDTA) 02/11/07 306 dpgm sds 29/09/07 307 d@prgn *proc 29/09/07 308 d@wrkstn 244 253 29/09/07 400 DFRN S 4 0 11/11/07 401 Dmfrn S 4 0 18/11/07 402 Dcount S 4 0 11/11/07 403 Dlast S 4 0 11/11/07 404 D$HOPT S 2 02/11/07 700 Dfrn$1 s 6 26/11/07 701 DfREC s 6 13/11/07 702 D$emcod s 6 17/11/07 703 DLREC s 6 13/11/07 704 D#EMPN S 6 02/11/07 705 Dflg S 1 02/11/07 706 Dflgg S 1 02/11/07 900 DEMP$ S 6 13/11/07 1000 DEMP1$ S 5 0 11/11/07 1001 C/EXEC SQL 13/11/07 1002 C+ SELECT EMCOD INTO :FREC FROM AMITS/EIMEM order by emcod 13/11/07 1004 C+ FETCH FIRST 1 ROW ONLY 13/11/07 1005 C/END-EXEC 13/11/07 1006 C/EXEC SQL 13/11/07 1007 C+ SELECT EMCOD INTO :LREC FROM AMITS/EIMEM order by emcod DESC 13/11/07 1008 C+ FETCH FIRST 1 ROW ONLY 13/11/07 1010 C/END-EXEC 13/11/07 1011 c* #key klist 17/11/07 1012 c* kfld $rrn 17/11/07 1013 c* kfld $emcod 17/11/07 1014 16/11/07 1015 C EVAL EMP$=FREC 13/11/07 1100 c exsr clsr 25/11/07 1200 c exsr rdsr 26/11/07 1400 C DOW (*in03 = *off) 02/11/07 1401 03/11/07 1500 C IF (*in03 = *on) 02/11/07 1600 C LEAVE 25/11/07 1700 C ENDIF 25/11/07 1701 03/11/07 1702 c eval dprgn=@prgn 29/09/07 1703 c eval dwrkstn=@wrkstn 29/09/07 1800 C exsr dsplsr 28/09/07 1801 03/11/07 1802 c if $aopt=*zeros 11/11/07 1803 c eval flg='Y' 11/11/07 1804 c else 11/11/07 1805 c eval flg='N' 11/11/07 5722WDS V5R3M0 030905 SEU SOURCE LISTING 18/11/07 11:12:10 S6539B3B PAGE 2 SOURCE FILE . . . . . . . AMITS/AMITSRC MEMBER . . . . . . . . . EMPSFR02B SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 1806 c endif 11/11/07 1807 c 12/11/07 1808 c if flg='N' 12/11/07 1809 c exsr vaddsr 12/11/07 1830 11/11/07 1831 c if $aopt=1 12/11/07 1832 c exsr valsr 12/11/07 1833 12/11/07 1834 c if *in06=*on and (*in99 = *off) 12/11/07 1835 c eval $Aopt=*zeros 12/11/07 1836 C exsr writesr 12/11/07 1837 C eval $MSG = 'Recored Insertted' 12/11/07 1838 c exsr clfsr 12/11/07 1839 c endif 12/11/07 1840 c if *in05=*on 12/11/07 1841 c exsr clfsr 12/11/07 1842 c exsr insr 12/11/07 1843 c eval $AOPT=*zeros 12/11/07 1844 c endif 12/11/07 1845 12/11/07 1846 c endif 12/11/07 1847 c exsr clsr 12/11/07 1848 c exsr rdsr 12/11/07 1849 c endif 12/11/07 1850 12/11/07 1851 c exsr restsr 12/11/07 1852 12/11/07 1858 c exsr sflsr 05/11/07 1860 05/11/07 1862 c exsr rollsr 04/11/07 1864 05/11/07 2400 C ENDDO 25/11/07 2500 C EVAL *INLR=*ON 25/11/07 2600 26/11/07 2601 ******************************************* 11/11/07 2602 c rollsr begsr 11/11/07 2603 c if *in27=*off 11/11/07 2605 11/11/07 2606 c if frn$1=fREC 13/11/07 2607 c eval $top='Top..' 12/11/07 2608 c endif 12/11/07 2609 12/11/07 2610 c if *in43=*on 12/11/07 2611 c eval $msg='You have reached the bottom of the' 12/11/07 2612 c +'list.' 12/11/07 2613 c endif 12/11/07 2614 11/11/07 2615 c if *in43=*off and *in20=*on 12/11/07 2616 c eval $top=*blanks 11/11/07 2618 c exsr pgdsr 11/11/07 2619 c endif 11/11/07 2620 c 11/11/07 2621 c if frn$1<>fREC and *in21=*on 13/11/07 5722WDS V5R3M0 030905 SEU SOURCE LISTING 18/11/07 11:12:10 S6539B3B PAGE 3 SOURCE FILE . . . . . . . AMITS/AMITSRC MEMBER . . . . . . . . . EMPSFR02B SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 2622 c eval $msg=*blanks 12/11/07 2623 c exsr pgusr 11/11/07 2624 c endif 11/11/07 2628 12/11/07 2629 c endif 12/11/07 2630 c endsr 11/11/07 3400 C************************************************************ 04/11/07 3401 c pgdsr begsr 29/09/07 3415 C* EVAL EMP1$=%INT(%SUBST(emcod:2:5))-1 16/11/07 3416 c* eval EMP$='D'+%char(EMP1$) 16/11/07 3417 c eval emp$=emcod 16/11/07 3419 13/11/07 3420 c exsr clsr 12/11/07 3429 c exsr rdsr 11/11/07 3430 c 13/11/07 3431 c eval *in20=*off 03/11/07 3432 c endsr 29/09/07 3433 29/09/07 3500 c pgusr begsr 29/09/07 4000 c eval emp$=frn$1 05/11/07 4001 13/11/07 4200 c exsr roldsr 29/09/07 4201 c exsr clsr 12/11/07 4202 c exsr rdsr 11/11/07 4300 29/09/07 4301 c eval *in21=*off 03/11/07 4302 c eval *in43=*off 03/11/07 4800 c endsr 29/09/07 4900 29/09/07 4901 c roldsr begsr 29/09/07 4902 c EMp$ SETll EIMEML01 30/10/07 4903 c do 4 29/09/07 4904 c READP EIMEML01 30/10/07 4905 c enddo 29/09/07 4906 c eval EMP$ = emcod 29/09/07 4907 c endsr 29/09/07 6500 29/09/07 6600 c dsplsr begsr 25/11/07 6700 C if Frn = 0 11/11/07 6800 C eval *in40 = *off 11/11/07 7000 C else 25/11/07 7100 C eval *in40 = *on 11/11/07 7300 C endif 25/11/07 7400 C eval *in41 = *on 28/11/07 7401 C write footer 02/11/07 7500 C exfmt EMPCF 28/09/07 7501 c* if currec<>0 16/11/07 7502 c* eval frn=currec 16/11/07 7503 c* eval $REC=currec 16/11/07 7504 c* endif 16/11/07 7700 C eval *in40 = *oFF 05/11/07 7800 C eval *in41 = *oFF 05/11/07 7900 C endsr 25/11/07 5722WDS V5R3M0 030905 SEU SOURCE LISTING 18/11/07 11:12:10 S6539B3B PAGE 4 SOURCE FILE . . . . . . . AMITS/AMITSRC MEMBER . . . . . . . . . EMPSFR02B SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 8000 C 25/11/07 8100 c rdsr begsr 25/11/07 8107 17/11/07 8108 c eval count=0 11/11/07 8200 C EMP$ setll EIMEML01 30/10/07 8300 C read EIMEML01 30/10/07 8301 c eval $rec=1 12/11/07 8400 C eval frn$1=EMCOD 30/10/07 8600 c dow count<4 11/11/07 8601 c eval frn+=1 11/11/07 8602 c eval mfrn+=1 18/11/07 8603 c* eval $rrn=mfrn 18/11/07 8604 c eval count+=1 11/11/07 8605 c eval last+=1 11/11/07 8901 c if %eof(EIMEML01) 30/10/07 9000 c eval *in43=*on 29/09/07 9100 c leavesr 27/11/07 9200 c endif 27/11/07 9300 c exsr evlsr 28/09/07 9400 C write SFLEMP 27/11/07 9800 c read EIMEML01 30/10/07 9900 C ENDDO 26/11/07 10000 c endsr 25/11/07 10100 25/11/07 10200 c clsr begsr 25/11/07 10201 c eval frn =0 18/11/07 10202 c* eval mfrn =0 18/11/07 10300 C eval *in42 = *on 25/11/07 10400 c write EMPCF 27/11/07 10500 C eval *in42 = *off 25/11/07 10700 c endsr 25/11/07 10800 C 25/11/07 10900 c evlsr begsr 28/09/07 11000 C EVAL $EMPN=EMCOD 25/11/07 11100 C EVAL $EMFN =EMFN 02/11/07 11101 C EVAL $EMMN =EMmN 02/11/07 11102 C EVAL $EMLN =EMlN 02/11/07 11200 C EVAL $EMSAL=EMSAL 30/10/07 11201 C* EVAL $sopt=*zeros 13/11/07 11300 c endsr 25/11/07 11316 02/11/07 11317 c insr begsr 02/11/07 11318 C eval *in11 = *off 02/11/07 11319 C eval *in12 = *off 02/11/07 11320 C eval *in13 = *off 02/11/07 11321 C eval *in14 = *off 02/11/07 11322 C eval *in15 = *off 02/11/07 11323 C eval *in27 = *off 05/11/07 11324 C eval *in06 = *off 03/11/07 11325 c endsr 02/11/07 11326 02/11/07 11338 02/11/07 11401 c VLSR begsr 02/11/07 5722WDS V5R3M0 030905 SEU SOURCE LISTING 18/11/07 11:12:10 S6539B3B PAGE 5 SOURCE FILE . . . . . . . AMITS/AMITSRC MEMBER . . . . . . . . . EMPSFR02B SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 11402 02/11/07 11403 C IF $sopt>4 and $sopt<>0 02/11/07 11404 C eval *in27 = *on 04/11/07 11405 c eval $HOPT=%EDITC($SOPT:'X') 02/11/07 11406 C eval $MSG = 'Invalid action code entered.' 02/11/07 11407 c eval flgg='Y' 02/11/07 11408 c eval *in99=*on 02/11/07 11409 c leavesr 04/11/07 11410 c else 02/11/07 11411 C eval *in27 = *off 04/11/07 11412 c eval *in99=*off 02/11/07 11413 c eval $msg =*Blanks 02/11/07 11414 C endif 02/11/07 11415 c 02/11/07 11416 c if $emfn=*Blanks 02/11/07 11417 C eval *in22 = *on 02/11/07 11418 C eval $MSG = 'Employee FName Cant be Blank' 02/11/07 11419 c eval flgg='Y' 02/11/07 11420 c eval *in99=*on 02/11/07 11421 c leavesr 04/11/07 11422 c else 02/11/07 11423 C eval *in22 = *off 02/11/07 11424 c eval *in99=*off 02/11/07 11425 c eval $msg =*Blanks 02/11/07 11426 C endif 02/11/07 11427 02/11/07 11428 c if $emmn=*Blanks 02/11/07 11429 C eval *in23 = *on 02/11/07 11430 C eval $MSG = 'Employee MName Cant be Blank' 02/11/07 11431 c eval flgg='Y' 02/11/07 11432 c eval *in99=*on 02/11/07 11433 c leavesr 04/11/07 11434 c else 02/11/07 11435 C eval *in23 = *off 02/11/07 11436 c eval *in99=*off 02/11/07 11437 c eval $msg =*Blanks 02/11/07 11438 c endif 02/11/07 11439 02/11/07 11440 c if $emln=*Blanks 02/11/07 11441 C eval *in24 = *on 02/11/07 11442 C eval $MSG = 'Employee LName Cant be Blank' 02/11/07 11443 c eval flgg='Y' 02/11/07 11444 c eval *in99=*on 02/11/07 11445 c leavesr 04/11/07 11446 c else 02/11/07 11447 C eval *in24 = *off 02/11/07 11448 c eval *in99=*off 02/11/07 11449 c eval $msg =*Blanks 02/11/07 11450 C endif 02/11/07 11451 02/11/07 11452 c if $emsal=*zeros 02/11/07 11453 C eval *in25 = *on 02/11/07 11454 C eval $MSG = 'Employee Salary Cant be Blank' 02/11/07 5722WDS V5R3M0 030905 SEU SOURCE LISTING 18/11/07 11:12:10 S6539B3B PAGE 6 SOURCE FILE . . . . . . . AMITS/AMITSRC MEMBER . . . . . . . . . EMPSFR02B SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 11455 c eval flgg='Y' 02/11/07 11456 c eval *in99=*on 02/11/07 11457 c leavesr 04/11/07 11458 c else 02/11/07 11459 C eval *in25 = *off 02/11/07 11460 c eval *in99=*off 02/11/07 11461 c eval $msg =*Blanks 02/11/07 11462 C endif 02/11/07 11463 12/11/07 11467 c if $sopt>1 and $sopt<4 12/11/07 11468 c if *in99=*off and *in06=*off 11/11/07 11469 c eval $msg = 'Press F6 to accept' 05/11/07 11470 c endif 05/11/07 11471 c endif 12/11/07 11472 c endsr 02/11/07 11500 c 02/11/07 11525 04/11/07 11526 c sflsr begsr 04/11/07 11527 c if flg='Y' 12/11/07 11528 c eval flgg='N' 04/11/07 11529 c eval $msg=*blanks 11/11/07 11530 11/11/07 11531 c readc sflemp 90 04/11/07 11532 c dow *in90=*off 04/11/07 11535 c exsr vlsr 04/11/07 11536 c eval *in10=*on 04/11/07 11538 c* eval $emcod=$empn 18/11/07 11539 c update sflemp 05/11/07 11540 c eval *in10=*off 11/11/07 11541 c readc sflemp 90 04/11/07 11542 c* eval *in27=*off 11/11/07 11543 c enddo 04/11/07 11544 04/11/07 11545 04/11/07 11546 c if *in06=*on and *in99 = *off 05/11/07 11548 c* if flgg<>'Y' 12/11/07 11549 c and flgg<>'Y' 12/11/07 11550 04/11/07 11551 c readc sflemp 90 04/11/07 11552 C DOW *IN90=*OFF 05/11/07 11553 04/11/07 11554 c if $SOPT=2 04/11/07 11555 c exsr updsr 04/11/07 11556 C eval $MSG = 'Record Updated' 04/11/07 11557 c eval $SOPT=0 04/11/07 11558 c endif 04/11/07 11559 04/11/07 11560 c if $SOPT=3 11/11/07 11561 c exsr copsr 11/11/07 11562 C eval $MSG = 'Record Copied' 11/11/07 11563 c eval $SOPT=0 11/11/07 11564 c endif 11/11/07 11565 11/11/07 5722WDS V5R3M0 030905 SEU SOURCE LISTING 18/11/07 11:12:10 S6539B3B PAGE 7 SOURCE FILE . . . . . . . AMITS/AMITSRC MEMBER . . . . . . . . . EMPSFR02B SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 11566 c if $SOPT=4 04/11/07 11567 c exsr dltsr 04/11/07 11568 C eval $MSG = 'Record Delete' 04/11/07 11569 c eval $SOPT=0 04/11/07 11570 c endif 04/11/07 11571 11/11/07 11574 c update sflemp 04/11/07 11575 c readc sflemp 90 04/11/07 11576 c enddo 04/11/07 11577 04/11/07 11578 c exsr clsr 11/11/07 11579 c exsr rdsr 11/11/07 11580 c endif 04/11/07 11581 c* endif 12/11/07 11582 c endif 11/11/07 11583 04/11/07 11584 c endsr 04/11/07 11585 04/11/07 12201 02/11/07 12202 c dltsr begsr 02/11/07 12203 c $EMPN chain EIMEML01 02/11/07 12204 c if %found (EIMEML01) 02/11/07 12206 c delete REIMEM 02/11/07 12208 c endif 02/11/07 12209 c endsr 02/11/07 12210 02/11/07 12211 c updsr begsr 02/11/07 12212 c $EMPN chain EIMEML01 02/11/07 12213 c if %found (EIMEML01) 02/11/07 12214 c eval EMSAL = $emsal 02/11/07 12215 c eval EMfN =$emfn 02/11/07 12216 c eval EMmN =$emmn 02/11/07 12217 c eval EMlN =$emln 02/11/07 12219 c update REIMEM 02/11/07 12220 c endif 02/11/07 12221 c endsr 02/11/07 12222 C copsr BEGSR 02/11/07 12223 C *lock IN @EMPN 02/11/07 12224 C EVAL @EMPN=@EMPN+1 02/11/07 12225 C OUT @EMPN 02/11/07 12226 C eval #EMPN='D'+%EDITC(@EMPN:'X') 02/11/07 12227 C EVAL emcod=#EMPN 02/11/07 12228 C EVAL EMSAL=$emSAL 02/11/07 12229 c eval EMfN =$emfn 02/11/07 12230 c eval EMmN =$emmn 02/11/07 12231 c eval EMlN =$emln 02/11/07 12232 c write REIMEM 02/11/07 12233 c endsr 02/11/07 12234 02/11/07 12235 c restsr begsr 03/11/07 12236 c if *in05=*on 03/11/07 12237 c eval $msg=*Blanks 05/11/07 12238 c eval $SOPT=*zeros 03/11/07 5722WDS V5R3M0 030905 SEU SOURCE LISTING 18/11/07 11:12:10 S6539B3B PAGE 8 SOURCE FILE . . . . . . . AMITS/AMITSRC MEMBER . . . . . . . . . EMPSFR02B SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 12239 c eval *in27=*off 05/11/07 12240 c exsr clsr 04/11/07 12241 c exsr rdsr 04/11/07 12243 c endif 03/11/07 12244 c endsr 03/11/07 12245 03/11/07 12300 C DTASR BEGSR 02/11/07 12400 C *lock IN @EMPN 02/11/07 12500 C EVAL @EMPN=@EMPN+1 02/11/07 12600 C OUT @EMPN 02/11/07 12700 C eval #EMPN='D'+%EDITC(@EMPN:'X') 02/11/07 12800 C EVAL $EMCOD=#EMPN 12/11/07 12900 C ENDSR 02/11/07 12901 12/11/07 12902 C writesr BEGSR 12/11/07 12903 c EXSR DTASR 12/11/07 12904 c MOVE $EMCOD EMcod 12/11/07 12905 c MOVE $EMFNa Emfn 12/11/07 12906 c MOVE $EMMNa EMmn 12/11/07 12907 c MOVE $EMLNa EMLn 12/11/07 12908 c eval emsal=$EMSALa 12/11/07 12909 c write REIMEM < ]]>