Listing of file='IDS2sACD' on disk='vmedia/701-2740.wvd.zip'
### Logical Record 0 "\E1IDS2sACD\86I\0C\8E\88n\9EP/\C8\09%\B2]%\02\102\96;\F2\90\00\00 1IDSLIBR0 DATAFI" "LE :\0E\01\03\03\00\00 1TJB111111 " " " " SCREEN TO ADD, CHANGE OR DELETE A RECORD KE" "Y IS 'FIELD001'; MESSAGE IS ON LAST FIELD LAST F" "IELD SAVES OR DELETES RECORD AS DESIRED FIELD001: " " " " FIELD002: " " " " FIELD003: " " " " FIELD004: " " " " FIELD005: " " " " FIELD006: " " " " FIELD007: " " " " FIELD008: " " " " FIELD009: " " " " FIELD010: " ### Logical Record 1 "\0A\00\18 \15y\83\14\00\0A\06p <p\00\14\00\0A\00\B80\15y\81\14\00\0A\07\100<p\00\14\00\0A\01P@\15q\80\14\00\0A\01\F0P\15q\80\14\00\0A\02\90`\15q\80\14\00\0A\030p\15q\80\14\00\0A\03\D0\80\15q\80\14\00\0A\04" "p\90\15q\80\14\00\0A\05\10\A0\15q\80\14\00\0A\05\B0\B0\15q\80\14\00\0A\07\B0 dp\00\14\00\01\06`\B8\9F\98\01\14\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00" "\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\00\01\15\03H" ### Logical Record 2 "FIELD001OLDKEY1 FIELD002OLDKYALTFIELD003FIELD004FIELD005FIELD006FIELD007FIELD008FIE" "LD009FIELD010CHECKKEYLAST " " " ### Logical Record 3 " f\81\F9\A7IDS2sACDFIELD001 " " " " " ### Logical Record 4 " h\81\F9\A7IDS2sACDFIELD001 BHDISPMSG1 " " " " " ### Logical Record 5 " l\81\F9\A7IDS2sACDFIELD001Enter key field for desired record " " " " " ### Logical Record 6 " \86\A1\F9\A7IDS2sACDFIELD001 FILE # 11 NUFILE # 1FILE # 1DYFFIELD001 " " 10 " " " ### Logical Record 7 " \88\A1\F9\A7IDS2sACDFIELD001 PUFIELD001 " " PQLAST F SKIP03PFIFFLGDOFFHDISPMSG2 FIBLANKFLDIDS2sACDF" "QFIELD001 " ### Logical Record 8 " \8C\A1\F9\A7IDS2sACDFIELD001 " " Record in use by another partition " " " ### Logical Record 9 " \96\E5\B9gIDS2sACDFIELD001 FIELD001= FOLDKEY1 " " " " " ### Logical Record 10 " \98\E5\B9gIDS2sACDFIELD001 F FLAGF=ON " " " " " ### Logical Record 11 " \86\E9\B9fIDS2sACDFIELD001 FILE # 11 NICHECKKEYFIELD001HYFFIELD001 " " 10 " " " ### Logical Record 12 " \88\E9\B9fIDS2sACDFIELD001 B FLAGF=OF " " BHDISPERR1IFFLGHONBQFIELD001IFFLGHON " " " ### Logical Record 13 " \8C\E9\B9fIDS2sACDFIELD001Record already exists-- please re-enter " " " " " ### Logical Record 14 " \96\E2\B9gIDS2sACDFIELD002 FIELD002= FOLDKYALT " " " " " ### Logical Record 15 " \98\E2\B9gIDS2sACDFIELD002 F FLAGF=ON " " " " " ### Logical Record 16 " \86\E4\B9fIDS2sACDFIELD002 ALTFILE 1 NICHECKKEYFIELD002IYFFIELD002 " " 10 " " " ### Logical Record 17 " \88\E4\B9fIDS2sACDFIELD002 B FLAGF=OF BHDISPERR1IFFLGIONBQFIELD0" "02IFFLGION " " " ### Logical Record 18 " \8C\E4\B9fIDS2sACDFIELD002Record already exists-- please re-enter " " " " " ### Logical Record 19 " f\04.\00IDS2sACDLAST " " " " " ### Logical Record 20 " h\04.\00IDS2sACDLAST BHDISPMSG1 " " " " " ### Logical Record 21 " l\04.\00IDS2sACDLAST 'EXEC' = Accept, FN '9 = Delete, FN '33 = Edit, FN '31 = Cance" "l " " " ### Logical Record 22 " f%.\00IDS2sACDLAST " " " " " ### Logical Record 23 " h%.\00IDS2sACDLAST B SKIP10PFIFLFK=09B SKIP08" "PFIFLFK=32B SKIP02PFIFLFK=33BHRINGBELL BQLAST B SKIP03PFIFFLGGONB" "IFIELD001OLDKEY1 BIFIELD002OLDKYALTB FLAGG=ON BQFIELD001 BHDISPMSG2IF" ### Logical Record 24 " i%.\00IDS2sACDLAST LFK=32BHDISPMSG4IFLFK=09B SKIP01PFIFLFK=32BIBLANKFLDFILE # 1BO" "FILE # 1 B FLAGG=OFFLAGD=OFBIBLANKFLDIDS2sACDBUFIELD001 BQFIELD001 " " " ### Logical Record 25 " l%.\00IDS2sACDLAST Loading menu program " " Saving record to file " " " ### Logical Record 26 " m%.\00IDS2sACDLAST Deleting record from file " " Specified menu program is not available " " "