Single Page subfile

1,355 pts.
Tags:
AS400 Subfile
hi i am try to create a single page sub file for record updation with option 1-create 2-update when i put 2 in opt. field and press page down then option field showing 2 in every row in sub file please any one help me i am new in subfile programing thanks in advance
ASKED: January 13, 2012  7:28 AM
UPDATED: March 17, 2012  5:39 AM

Answer Wiki

Thanks. We'll let you know when a new response is added.

Try these links:

http://books.google.com/books?id=EPQHQgAACAAJ&source=gbs_similarbooks

http://www.lmgtfy.com/?q=how+to+write+subfiles+in+rpgle

Discuss This Question: 27  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • philpl1jb
    We're missing some specifications but here a rough first pass at the problem. In the load a page section of your program you have assumed that the option field is blank. If you change the load page routine to clear or reset the subfile record or set the option field to ' ' then the problem will go away. To get the option value '2' you've done a readc from the subfile .. Don't know your specs but if you are not going to use an option when page down is pressed then you could change the logic a little. Phil
    48,565 pointsBadges:
    report
  • TomLiotta
    Phil's probably got right. Most likely, the value '2' is left in the field after reading the changed record. When writing the new records, the '2' is still in the field, so it gets written to the new rows. Move blanks to the option field before writing new rows. As Phil also mentions, since we don't know the program specs, it's pretty hard for us to be certain. Tom
    125,585 pointsBadges:
    report
  • 9783444184
    Please give me an example code for the same i want update record when i press page down my code look like as: if *in43=*on (pagedown) clsr loadsr endif please tell me where is the problem
    1,355 pointsBadges:
    report
  • TomLiotta
    Please give me an example code for the same Example code for what part? Moving a blank to your option field before writing the new subfile record? To
    125,585 pointsBadges:
    report
  • 9783444184
    Thanks TomLiotta, Please review this and help me in my single page subfile (sflsiz=sflpage=4) when i select a row with opt.2 for updation after that i want next row which in my next page with option 2 all rows are selected with option 2 how can i handle this situation my loadsr is: c eval count=0 C EMP$ setll EIMEML01 C read EIMEML01 c eval $rec=1 C eval frn$1=EMCOD c dow count<4 c eval frn+=1 c eval count+=1 c eval last+=1 c if %eof(EIMEML01) c eval *in43=*on c leavesr c endif c exsr evlsr C write SFLEMP c read EIMEML01 C ENDDO and my clrsr is: c eval frn=0 C eval *in42 = *on c write EMPCF C eval *in42 = *off now my pagedown indicator is: if *in43=*on (pagedown) clsr loadsr endif
    1,355 pointsBadges:
    report
  • philpl1jb
    one method reset the subfile record in routine SFLEMP reset SFLEMP For another option put ' ' into the option field .. it doesn't appear that we have that field name. Phil
    48,565 pointsBadges:
    report
  • philpl1jb
    one method reset the subfile record in routine SFLEMP <-- Correction Routine CLRSR -- but is it CLRSR or CLSR reset SFLEMP
    48,565 pointsBadges:
    report
  • 9783444184
    please find the solution i have send you my subfile file and rpgle code 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
    1,355 pointsBadges:
    report
  • philpl1jb
    978 Last discusssion item was empty. Phil
    48,565 pointsBadges:
    report
  • 9783444184
    Please find the solution for this i have writen my subfile and rpgle code below: ************************************************* 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
    1,355 pointsBadges:
    report
  • 9783444184
    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 * * * *
    1,355 pointsBadges:
    report
  • 9783444184
    Hi Philpl1jb, Please give me your email id i will send you my code
    1,355 pointsBadges:
    report
  • 9783444184
  • 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 12/11/07 12910 C ENDSR 12/11/07 13000 04/11/07 13001 c VAddsr begsr 12/11/07 13002 c if $aopt<>1 12/11/07 13003 c eval *in11=*on 12/11/07 13004 c eval $HOPT=%EDITC($AOPT:'X') 12/11/07 13005 C eval $MSG = 'Option '+$HOPT+' is not valid.' 12/11/07 13006 C Leavesr 12/11/07 13007 C else 12/11/07 13008 C eval *in11 = *off 12/11/07 13009 C eval $MSG = *blanks 12/11/07 13010 c endif 12/11/07 13011 c endsr 12/11/07 13100 ****** 04/11/07 13101 c* pcsr begsr 05/11/07 13200 c* if $cr<>*zeros 05/11/07 13300 c* $cr chain sflemp 05/11/07 13400 c* If %Found 05/11/07 13500 c* eval *in26=*on 05/11/07 13600 c* endif 05/11/07 13700 c* eval $rec=$cr 05/11/07 13800 c* else 05/11/07 13900 c* eval $rec=1 05/11/07 14000 c* endif 05/11/07 14100 C* exsr dsplsr 04/11/07 14101 c* endsr 05/11/07 14102 ***************** 12/11/07 14103 12/11/07 14104 c VALSR begsr 12/11/07 14106 C IF $EMFNa=*BLANKS 12/11/07 14107 C eval *in12= *on 12/11/07 5722WDS V5R3M0 030905 SEU SOURCE LISTING 18/11/07 11:12:10 S6539B3B PAGE 9 SOURCE FILE . . . . . . . AMITS/AMITSRC MEMBER . . . . . . . . . EMPSFR02B SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 14108 C eval *in99 = *on 12/11/07 14109 C eval $MSG = 'Employee FName cant be Blank' 12/11/07 14110 C Leavesr 12/11/07 14111 C else 12/11/07 14112 C eval *in12 = *off 12/11/07 14113 C eval *in99 = *off 12/11/07 14114 C eval $MSG = *blanks 12/11/07 14115 C endif 12/11/07 14116 c 12/11/07 14117 C IF $EMmNa=*BLANKS 12/11/07 14118 C eval *in13 = *on 12/11/07 14122 C eval *in99 = *on 12/11/07 14123 C eval $MSG = 'Employee MName cant be Blank' 12/11/07 14125 C Leavesr 12/11/07 14200 C else 12/11/07 14300 C eval *in13 = *off 12/11/07 14400 C eval *in99 = *off 12/11/07 14500 C eval $MSG = *blanks 12/11/07 14600 C endif 12/11/07 14700 c 12/11/07 14800 C IF $EMlNa=*BLANKS 12/11/07 14900 C eval *in14 = *on 12/11/07 14901 C eval *in99 = *on 12/11/07 14902 C eval $MSG = 'Employee LName cant be Blank' 12/11/07 14903 C Leavesr 12/11/07 14904 C else 12/11/07 14905 C eval *in14 = *off 12/11/07 14906 C eval *in99 = *off 12/11/07 14907 C eval $MSG = *blanks 12/11/07 14908 C endif 12/11/07 14909 C IF $EMsala=*zeros 12/11/07 14910 C eval *in15 = *on 12/11/07 14911 C eval *in99 = *on 12/11/07 14912 C eval $MSG = 'Employee Salaey cant be Blank' 12/11/07 14913 C Leavesr 12/11/07 14914 C else 12/11/07 14915 C eval *in15 = *off 12/11/07 14916 C eval *in99 = *off 12/11/07 14917 C eval $MSG = *blanks 12/11/07 14918 C endif 12/11/07 14919 12/11/07 14920 c if (*in99 = *off) and (*in06 = *off) 12/11/07 14921 c eval $msg = 'Press F6 to accept' 12/11/07 14922 c endif 12/11/07 14923 12/11/07 14924 c endsr 12/11/07 15000 C clfsr begsr 12/11/07 15100 C eval $EMCOD=*BLANKS 12/11/07 15200 C eval $EMFNa=*BLANKS 12/11/07 15300 C eval $EMMNa=*BLANKS 12/11/07 15400 C eval $EMLNa=*BLANKS 12/11/07 15500 C eval $EMSALa=*Zeros 12/11/07 15600 C eval $MSG = *blanks 12/11/07 5722WDS V5R3M0 030905 SEU SOURCE LISTING 18/11/07 11:12:10 S6539B3B PAGE 10 SOURCE FILE . . . . . . . AMITS/AMITSRC MEMBER . . . . . . . . . EMPSFR02B SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 15700 C ENDSR 12/11/07 * * * * E N D O F S O U R
  • 1,355 pointsBadges:
    report
  • philpl1jb
    Post the Display file subfile record code.
    48,565 pointsBadges:
    report
  • philpl1jb
    and my clrsr is: C RESET SFLEMP c eval frn=0 C eval *in42 = *on c write EMPCF C eval *in42 = *off This should resolve this issue
    48,565 pointsBadges:
    report
  • 9783444184
    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
    1,355 pointsBadges:
    report
  • 9783444184
    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
    1,355 pointsBadges:
    report
  • 9783444184
      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                                      <				
    1,355 pointsBadges:
    report
  • 9783444184
    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
    1,355 pointsBadges:
    report
  • 9783444184
    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 -- --------- -------------- -- --------- --------------
    1,355 pointsBadges:
    report
  • philpl1jb
    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
    48,565 pointsBadges:
    report
  • TomLiotta
    ...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
    125,585 pointsBadges:
    report
  • philpl1jb
    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?
    48,565 pointsBadges:
    report
  • 9783444184
    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
    1,355 pointsBadges:
    report
  • TomLiotta
    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
    125,585 pointsBadges:
    report
  • philpl1jb
    If you were to decide to process the requested options before you move to a new page your solution would be much simplier.
    48,565 pointsBadges:
    report
  • 9783444184
    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...... -:)
    1,355 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following