image of READY prompt

Wang2200.org

Listing of file='IDS2sACS' on disk='vmedia/701-2740.wvd.zip'

### Logical Record 0
"\E1IDS2sACS\86I\0C\8E\88n\9EP/\C8\09%\B2]%#:m\C2\C9I\00\00\00        1IDSLIBR0                           DATAFI"
"LE                                                z\0B\01\03\03\00\00  1TJB111111              "
"                                                                                  S"
"IMPLE SCREEN TO ADD, CHANGE OR DELETE A RECORD                              KEY IS "
"'FIELD001'; MESSAGE TO SAVE PRE-ENTRY TO 'LAST'                           SAVE, EDI"
"T OR DELETE RECORD IS ON LAST FIELD 'LAST'               FIELD001:                 "
"                                                                                   "
"                                                   FIELD002:                       "
"                                                                                   "
"                                             FIELD003:                             "
"                                                                                   "
"                                       FIELD004:                                   "
"                                                                                   "
"                                 FIELD005:                                         "
"                                                                                   "
"                           FIELD006:                                               "
"                                                                                   "
"                     FIELD007:                                                     "
"                                                                                   "
"               FIELD008:                                                           "
"                                                                                   "
"         FIELD009:                                                                 "
"                                                                                   "
"   FIELD010:                                                                       "
### Logical Record 1
"\0A\00\18 \15y\814\00\0A\00\B80\15q\804\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\04p\90\15q\80\14\00\0A\05\10\A0\15q\80\14\00\0A\05"
"\B0\B0\15q\80\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\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\11\03W"
### Logical Record 2
"FIELD001FIELD002FIELD003FIELD004FIELD005FIELD006FIELD007FIELD008FIELD009FIELD010LAS"
"T                                                                                  "
"                                                                                   "
### Logical Record 3
" f\02.\00IDS2sACSFIELD001                                                              "
"                                                                                   "
"                                                                                   "
### Logical Record 4
" h\02.\00IDS2sACSFIELD001                                    BHDISPMSG1                "
"                                                                                   "
"                                                                                   "
### Logical Record 5
" l\02.\00IDS2sACSFIELD001Enter key field for desired record                            "
"                                                                                   "
"                                                                                   "
### Logical Record 6
" \86\A2\F9\A7IDS2sACSFIELD001 FILE # 11   NUFILE # 1FILE # 1DYFFIELD001                    "
"        10                                                                         "
"                                                                                   "
### Logical Record 7
" \88\A2\F9\A7IDS2sACSFIELD001                                    FHDISPERR1IFFLGDONFQFIELD0"
"01IFFLGDON                  PUFIELD001                          PQLAST             "
"                                                                                   "
### Logical Record 8
" \8C\A2\F9\A7IDS2sACSFIELD001Record is in use by another partition                         "
"                                                                                   "
"                                                                                   "
### Logical Record 9
" f\03.\00IDS2sACSLAST                                                                  "
"                                                                                   "
"                                                                                   "
### Logical Record 10
" h\03.\00IDS2sACSLAST                      BHDISPMSG1                                  "
"                                                                                   "
"                                                                                   "
### Logical Record 11
" l\03.\00IDS2sACSLAST    'EXEC' = Accept, FN '9 = Delete, 'EDIT' = Edit, FN '31 = Cance"
"l                                                                                  "
"                                                                                   "
### Logical Record 12
" f&.\00IDS2sACSLAST                                                                  "
"                                                                                   "
"                                                                                   "
### Logical Record 13
" h&.\00IDS2sACSLAST                      B SKIP07PFIFLFK=09B SKIP05PFIFLFK=32B SKIP02"
"PFIFLFK=33BHRINGBELL        BQLAST            B FLAGG=ON        BQFIELD001IFLFK=33B"
"HDISPMSG2IFLFK=32BHDISPMSG1IFLFK=09B SKIP01PFIFLFK=32BIBLANKFLDFILE # 1BOFILE # 1  "
### Logical Record 14
" i&.\00IDS2sACSLAST          BCFLAGG=OFFLAGD=OFBIBLANKFLDIDS2sACSBUFIELD001        BQ"
"FIELD001                                                                           "
"                                                                                   "
### Logical Record 15
" l&.\00IDS2sACSLAST    Deleting record from file                                     "
"  Saving record to file                                                            "
"                                                                                   "