Edit attribute within nested block script

[leeUT3Y6]

Hi, 
I found a script by Lee Mac on the forum for changing a nested block attribute with a lisp.
I'm trying to change it so instead of predefined set of values, the script will ask you for a block, and then ask you for the value you would like set in its nested attribute.
I'm new to LISP and no luck so far.
The original scrip and the modified are attached.
Please help

BR
Lee

[ВeekeeCZ · Accepted solution]

All you need is this to change in original code:

  (initget 1)
  (setq int (getint "\nEnter an integer: "))
  (setq data (list (cons "MYATT" (itoa int))))

;;;      '(
;;;           ("NUM"     . "1")
;;;           ("ID" . "01/12/2011")
;;;           ("ADRESS" . "FOR  REVIEW")
;;;           ("CODE"     . "MAL")
;;;           ("ROOMNR"     . "01/12/2011")
;;;       )
;;;   )

[leeUT3Y6 · Accepted solution]

Thanks! It Works!
I prefer it first to ask for the block, and then for the attribute.
The code is attated.

[ВeekeeCZ]

You got it, cool!