PRO GETSTRSHPCMD, inbuf, strShpCmd, len, h=h
;	-------------------------------------------------------------
;+							31-Jul-91
;	NAME:
;		GETSTRSHPCMD
;	PURPOSE:
;		Create a formatted string containning the commanded
;		image shape nx columns by ny lines.
;	CALLING SEQUENCE:
;		GetStrShpCmd, inbuf, strShpCmd, len, [h=h]
;	Input:
;		inbuf	2-dimensional integer giving the number of 
;			columns and lines.
;	Output:
;		strShpCmd	returned string with encoded image 
;				shape.
;		len 		length of returned string
;	Keyword:
;		h	returned header
;	History:
;		written 30-Jul-91 by GAL
;		31-July-91, added optional returned header
;-
;	------------------------------------------------------------
;	ON_ERROR, 2 	;force a return to caller on error

	col = STRING( inbuf(0,*), format='(i4)' )    	;1024 max
	lin = STRING( inbuf(1,*), format='(i3)' )	;512 max

	strShpCmd = col+' '+lin
	h = 'cols lin'
	len = 8

	RETURN
	END