identification division.
       program-id.      external1sub.
       environment      division.
       configuration    section.
       special-names.
         .
       data division.
       file section.
       working-storage  section.
       01 wint     external pic x(12).
       LINKAGE SECTION.
       procedure division.
		accept wint update.
*       	display wint
*	   accept wint update
	   exit program.