image of READY prompt

Wang2200.org

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                                          "
"                                                                                   "